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PRÉFACE 


L'objectif de cet ouvrage se situe à deux niveaux : 

— acquérir la maîtrise d’une méthode de programmation adaptée au langage informatique, 
— particulariser cette méthode par l'introduction de fonctions graphiques propres au dessin de 
construction. 

Après l’étude des instructions élémentaires de tracé, l’utilisateur de ce manuel parvient, 
progressivement, aux figures géométriques plus complexes, ce qui lui permet de créer des schémas, 
des perspectives, des dessins de définition et des schémas dynamiques. 

Cet ouvrage permet, aux professeurs de dessin de construction notamment, l'élaboration de 
progiciels, auxiliaires modernes de leur pédagogie. Aux élèves des enseignements technologiques 
et professionnels, il apporte une réponse aux problèmes de programmation dans le domaine de la 
construction. 


AVERTISSEMENT 


Le BASIC, langage de programmation universel, peut être utilisé quel que soit le matériel. 
Quelques modifications doivent, cependant, être opérées au niveau des fonctions de commande et 
d’exécution. Leurs correspondances, indiquées à la fin du chapitre 1, Généralités, paragraphe 3, 
correspondance des fonctions BASIC utilisées dans cet ouvrage, permettent d'adapter les 
programmes au matériel. 

Les dessins réalisés sur table traçante et les «listings» sont écrits au moyen d’un clavier 
QWERTY dépourvu d’accentuation. 
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Présentation 
du matériel 


Le matériel utilisé dans cet ouvrage regroupe : 


— le micro-ordinateur OLIVETTI M20, 
— le traceur HEWLETT PACKARD HP 
7475 A, 


— l'imprimante copie d'écran OLIVETTI 
PR15. 


Nous proposons, au lecteur, une description 
sommaire de ce matériel dans les pages 
suivantes. 


Le micro-ordinateur OLIVETTI M20 est un 
système autonome conçu pour l'usage profes- 
sionnel en tant qu'outil de résolution. Il'est utilisé 
pour traiter des problèmes scientifiques, bureau- 
tiques et graphiques. 

Connecté à des périphériques, il constitue un 
outil efficace de transmission de données. 

Le noyau du M20 est un micoprocesseur Z8001 
de 16 bits qui travaille avec un langage BASIC 
évolué. 

La facilité d'utilisation est assurée par l'écran 
d'affichage alphanumérique et graphique, ver- 
sion monochrome où version couleur. 

Les informations, traitées en mémoire centrale, 
sont ensuite stockées sur des disques souples de 
5 pouces 1/4 faciles d'emploi et assurant une 
grande rapidité de transfert de celles-ci. 


Quelques caractéristiques du M20 


— Capacité de la mémoire centrale: 128 Ko 
— Capacité de mémoire utilisable : 58 Ko 
— Capacité de stockage sur disquette: 320 Ko 
Deux lecteurs de disquettes. 
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2. LE TRACEUR HEWLETT PACKARD 7475 A 


Le traceur HEWLETT PACKARD 7476 A est un 
périphérique connecté par l'intermédiaire de 
l'interface HPIEEE 488 ou de l'interface 
RS 232 C. 

Le traceur est un calculateur équipé d'un 
microprocesseur Z80 qui mémorise les instruc- 
tions du micro-ordinateur, les traite et les restitue 
sous forme graphique. 

Les tracés peuvent être réalisés sur les formats 
normalisés A3 et A4. Ün commutateur placé à 
l'arrière de la machine permet le passage d'un 
format à l'autre. 

Une instruction de commande placée dans le 
programme permet de choisir uñe couleur de 
tracé parmi six plumes contenues dans le barillet. 


L'imprimante graphique OLIVETTI PR 15 per- 
met d'établir le listing des programmes situés en 
mémoire centrale et la reproduction d'un tracé 
graphique obtenu à l'écran. 


Utilisation du 
clavier 


Clavier USA ASCII-OWERTY 
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Figure 1.1 


Clavier français - AZERTY 
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— Le clavier permet l'introduction de tous les 
caractères standard de texte et de contrôle. 
Tous les caractères montrés dans ce manuel se 
réfèrent au clavier ASCII. Quand nous voudrons 
spécifier les touches que l'utilisateur doit 
enfoncer pour exécuter une opération, nous 
indiquerons la séquence exacte des touches à 
l'intérieur d'un cadre. 


Exemple : 


Figure 1.2 


Par convention nous utiliserons les lettres 


pour indiquer l’une des touches de retour 
chariot, d'interligne ou de validation de ligne : 


Le mot 


d'espacement. 


Le mot |SHIFT]| indiquera l'une des deux 


touches SHIFT. 


indiquera la barre 


1. INTRODUCTION DES CARACTERES 


A la mise sous tension, les caractères introduits sont minuscules. Le curseur clignotant [| indique la 


position que va occuper le caractère suivant : 


SHIFT 
COMMAND 


pi 
SPACE 


Touche d'espacement. 


La touche | SHIFT | maintenue enfoncée permet d'obtenir soit des caractères 
majuscules, soit le symbole du haut des touches présentant deux symboles. 


Bloque le clavier des lettres A-Z en position majuscule. Pour ramener en 
position minuscule appuyer à nouveau sur ces touches. 
Envoie une ligne au système, où une commande PCOS ou des données. 


2. CARACTERES DE CONTROLE 


CAT ou 


CTRL 


Permet l'introduction des caractères de contrôle ci-après. 
Interrompt l'exécution d'un programme. 


Le curseur change de forme et de vitesse de clignotement. L'affichage des 


caractères à l'écran est supprimé. En appuyant à nouveau sur ces touches ou 
sur |CR |. on revient à l'affichage normal. 
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Le curseur est déplacé d'une position vers la gauche. 


Le dernier caractère composé est effacé. 


Suspend la visualisation à l'écran. 


En appuyant sur n'importe quelle touche: on retrouve la visualisation. 


On sort de l'état d'insertion tout en restant dans le mode édition. 


La mémoire est remise à zéro. 


Le PCOS est rechargé à partir du disque. 


3 CORRECTION DES ERREURS DE FRAPPE 


Efface le ou les derniers caractères avant d'avoir terminé une ligne (c'est-à- 


dire avant d'avoir appuyé sur qui valide et envoie la ligne). 


Efface toute la ligne (avant validation). 


Si la ligne de programme est validée et si les corrections sont importantes, 
introduire la ligne correctement en reprenant le même numéro de ligne. La 
nouvelle ligne remplacera l'ancienne. 


Modes de 
fonctionnement 


Le BASIC comporte trois modes de fonctionnement : 
Mode commande : Pour introduire les programmes et les lignes immédiates: 


Mode exécution 
Mode édition 


1. MODE COMMANDE 


Lorsque l'ordinateur est en mode commande, il 
affiche un appel spécial : OK. 
Le BASIC n'accepte votre entrée que lorsque 


vous terminez la ligne en appuyant sur [CR]. 
Le BASIC ignore toujours les espaces de début 
dans une ligne. || saute au premier caractère qui 
n'est pas un espace. Si ce caractère n'est pas un 
chiffre le BASIC traite la ligne comme une ligne 
immédiate. Si c'est un chiffre, la ligne est traitée 
comme une ligne de programme. 
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: Pour exécuter les programmes et les lignes immédiates; 
: Pour éditer les lignes du programme. 


Exemple : 199 PRINT «le sinus de 1,5 radian 
est»; SIN (1.5). 
C'est une ligne de programme qui est mémorisée 


quand on appuye sur| CR |. Pour l'exécuteril faut 


introduire [RUN ][CR |. 


Par contre, la ligne ci-dessous est une ligne 
immédiate qui est exécutée dès que l'on appuie 


sur [CR |. 


PRINT «le sinus de 1.5 radian est»: SIN (1.5). 


Quand on introduit une séquence de lignes de 
programme, elles sont mémorisées dans l'ordre 
indiqué par leur-numéro (quel que soit l'ordre 
dans lequel elles ont été introduites) et le 
programme n'est exécuté que lorsqu'on intro- 


duit (RUNJ[CA] 


2. MODE EXECUTION 
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Le mode commande comprend les sous-modes 
suivants : 

— immédiat où direct, quand on introduit 
une ligne immédiate 


— programme, quand on introduit une 
ligne de programme. 


Un programme en BASIC est exécuté dans l'ordre des numéros de ligne sauf si une instruction de 
contrôle (GOTO, IF … THEN … ELSE, FOR … NEXT, WHILE .. WEND) ne dicte autre chose. 


3. MODE EDITION 


Le BASIC comprend un éditeur de ligne pour la correction des lignes de programme. 


FMEZHIACI 


Le BASIC affiche la ligne 190. 


Le BASIC affiche la ligne courante, c'est-à-dire 
la dernière ligne introduite où éditée. 


On peut alors effacer, insérer, remplacer des caractères au moyen des sous-commandes du mode 


édition. 


Langage BASIC 


Le BASIC (Beginner's All purpose Symbolic 
Instruction Code) est un langage de program- 
mation universel que l'on peut utiliser pour 
résoudre à la fois les problèmes commerciaux et 
les problèmes scientifiques et techniques. 


Le BASIC est relativement facile à apprendre et à 
utiliser car il est formé d'instructions et de 
commandes qui s'expliquent d'elles-mêmes. 
Différentes versions de BASIC sont disponibles 
sur différents ordinateurs. 


1. ENVIRONNEMENTS BASIC ET PCOS 


Le système M20 comporte un ordinateur et un 
ensemble de programmes fournis par OLIVETTI. 
Les «programmes du système» sont résidants 
sur un mini-disque souple : c'est le disque 
système. 

Les programmes du système, qui comprennent 
le BASIC et le PCOS (Professionnal Computer 
Operating System) permettent de donner des 


instructions à l'ordinateur en un langage 
similaire au langage humain. Ils fonctionnent en 
convertissant les instructions données en un 
langage machine compris par l'ordinateur. Il y a 
une inter-action avec l'ordinateur en utilisant les 
commandes PCOS et BASIC et les instructions 
BASIC. 
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Fonctions 
utilisées 
1. INSTRUCTIONS BASIC 


Ce sont les ordres que l'on fournit à l'interpréteur BASIC. 


B 

BF 
CALL 
CIRCLE 
CLS 
COLOR 
CURSOR 
DATA 
DEFFN 
DIM 
END 


FOR … TO … 
NEXT 


GOSUB 


GOTO 
IF THEN 
ELSE 


INPUT 


LINE 

L PRINT 
NEXT 
TAN 


Dessine un rectangle à partir des coordonnées des points extrêmes. 
Dessine un rectangle plein. 

Appelle une commande PCOS. 

Instruction de tracé du cercle. 

Efface entièrement l'écran. 

Sélectionne les couleurs du fond et celles des caractères où graphiques. 
Positionne le curseur texte ou le curseur graphique (cursor point). 

Liste de données numériques ou chaînes de caractères. 

Définit une fonction numérique ou de chaîne. 

Dimensionne un tableau. 

Indique la fin d'un programme. 

Exemple : FORT =1TO 19 NEXTT: 

Les instructions situées entre FOR et NEXT T doivent être exécutées dix fois de suite. 
Le pas de variation de la variable T peut être différent de 1. 


Exemple : GOSUB 500. 

Envoie le programme à la ligne 599, première ligne d'un sous-programme. La 
dernière instruction de ce sous-programme est alors RETURN et elle fait reprendre 
l'exécution du programme à la ligne qui suit l'instruction GOSUB. 

Transfère le contrôle à une ligne du programme. 

Si la condition qui suit IF est réalisée alors l'instruction qui suit THEN est exécutée. 
Sinon le programme saute ce qui suit THEN et poursuit à la ligne suivante. 


Exemple : INPUT A 
Affiche un point d'interrogation à l'écran et attend une réponse numérique qui sera 
affectée à la variable A. 

Trace le trait qui joint deux points pour lesquels on précise les coordonnées. 
Liste le programme sur l'imprimante. 

Voir l'instruction FOR. 

Donne la tangente d'un argument exprimé en radians. 


2. COMMANDES BASIC 


Elles permettent d'exécuter immédiatement une opération spécifique indépendamment de tout 


programme. 
AUTO 


CONT 


DELETE 
EDIT 
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Numérote automatiquement le programme. En appuyant sur |CTRL le 
numérotage est arrêté. 


Permet de reprendre l'exécution d'un programme après arrêt par | CTRL [C]. 
Permet l'effacement d'une ligne ou d'un ensemble de lignes de programme. 
Introduit le mode édition à la ligne spécifiée. 
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FILES Liste les fichiers dans le répertoire du disque. 

KILL Efface un fichier mémorisé sur disque. 

LIST Liste les lignes du programme sur l'écran. 

LLIST Liste les lignes du programme sur l'imprimante. 

LOAD Charge, en mémoire, un programme contenu sur une disquette. 

MERGE Charge un programme à partir d'une disquette et l'ajoute au programme déjà en 
mémoire. 

NEW Efface le programme contenu en mémoire. 

PSET Affiche un point à l'écran. 

PRINT Affiche à l'écran. 

READ Affecte, à une variable, la valeur correspondante précisée dans DATA: 

REM Insère une {REMARQUE » dans le programme BASIC. 
On peut remplacer REM par une apostrophe «”». 

RENUM Renumérote les lignes d'un programme. 

RETURN Voir GOSUB. 

RUN Charge et exécute un programme BASIC situé sur disquette. 

SAVE Sauvegarde sur disquette le programme situé en mémoire. 

SCALE Définit l'échelle entre les coordonnées de l'utilisateur (mm par exemple) et les 
coordonnées du matériel (pixel). 

WHILE/ Exécute une série d'instructions dans une boucle tant qu'une condition trouvée est 

WEND vraie. 


3 TABLEAUX DE CORRESPONDANCE DES 
FONCTIONS BASIC UTILISEES DANS CET 
OUVRAGE 
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7 (Nes | NENL3E | 7 au 


unJ35eds XZ 


(A) Nos | NENL3E W3t Ê .C29,.)ANIEd 18 XZ | 

(A) N9S NHNL3H | .2..)INTbd | 02 2TA 
Le vaan Es RS A L jet j..28 NORRIS Eng | 

(A) N9S | NHNL3H (2) ANIHd ! 6611 É 

———— ————— en 

(A) N9S ; NENL3EH (2) ANIHd | GON uosuou] 

(A) Nos | NHNL3H (2) INIUd | 201 uosuwoul 


2 1NIHd 7 008594 duey2s 


(A) N9S NENL3EH 


FSer94 dueus 


2 INIHd | 


(A) Nos ! NENL34 
(A) N9S NENL3H Ï SoW3v 23FJ0 
Nan138 | 7 F Stu0 
NENL3E 13394510 
NENL 34 XUA7 


(A) Nos | NHNL3H J0328H 


(A) Nas NENL3H Wat | A avat4 2 LNIHd 2E uobeug 


[__ «nes NHNL3E 3 1NTHd sJopouuog 
D «nes | | 138 | INIHd deozxi ose) 
(A) Nes NEn138 | | ne. iNTüd 00184 01589 
(A) Nos — 7 | 1ANTHd 988 


(A) N9S NHNL3H W3H av ..2..1NIHd wo3v 
(A) N9S NHNL3H Wat A va 2 1NIHd Fu83v 


..2,.1NIHd peJ3suvy 


il 
| 
! 
j 
| 
il 
| 
| 
| 
| 

Wat En 2 iNIbd 7 estiv 

Wat avt 1NIHd 
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GÉNÉRALITÉS 


b IILNN O 1V3d3H 
P IIINN © 1V3d34 


O ON3M 2 37IHM 


0 ON3M 9 37IHM 


ON3M O 29 371IHM 


7IILNN © 1V3d434 


9 “IIINN 0 OG 


O ON3M 2 37IHM 


ON3M-311I1HM 


C)NVL 


OC) NVL 


OC) NvL 


CDNvi 
7 ONE 
()Nvi 
C)Nvi 
NL 
() NvL 
OO NvL 
CD NvL 
( )Nvi 
CNvL 


OC )NvL 


()Nvi 


OC) NVL 
C)NVL 


OC )NVL 
OC) NVL 
OC) NYL 


ajueb6ue] 


SMTS/O= D LOTS LOU OZ=T 


(e) $H1s 


___ (®)$bis | 


(e) $H1s 

Ï 7 (e)$tis 
(e) $HL1s 

7 (e)stis 

(e) $H1s 

: (e) $HL1s 
7 (e)$uis 

(8) $H1s 

(e) $HL1s 


(e) $HLs 


(e) suis 
7 suis 
(e) sus 
(e) sus 
(e) suis 


(e) $H1s 


(e) $His 


$HLs 


+ 


ss | 


FUALIDLESE ne | 
uny323eds XZ 


. ( )NIS 
RE: 
( )NIS 
SR 
()NIS SON uosuwou] 
7 Çpnis | LOL uoswour 
()nis | 006194 dueuss 
()NIS 7 iSerod dueus 
C)JNIS |  Ssow3v 5tu0 
| CNIS | + stuo 


2€ uobeug 


aJ0pouwo7 


Ë de02X4 otseJ 


00744 0tseJ 
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CHAPITRE 2 


ÉLÉMENTS GRAPHIQUES 


Écrans graphique 
et alphanumérique 
Table traçante 


1. ECRAN GRAPHIQUE (E.G.) 


£crenr orep/igtse 


ECrE/. 


256 Pixels. 


12 Pixels. 
Figure 2.1 


L'écran graphique n'occupe pas la totalité de papier, l'ordinateur utilise l'unité Pixe/ et non le 
l'écran réel. Ses dimensions sont mesurées en millimètre. L'échelle de conversion propre à 
pixels (points lumineux). Il y a donc chaque écran est sensiblement de : 

131072 points lumineux qui couvrentcetécran.  & pixels = 2 millimètres horizontalement, 

Pour reproduire sur l'écran le dessin tracé sur 2 pixels = 1 millimètre verticalement. 
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ÉLÉMENTS GRAPHIQUES 


2. ECRAN ALPHANUMERIQUE (E.A.) 


L'écran alphanumérique est destiné à l'affichage 
de textes. Les caractères utilisés sont délimités et 


positionnés par le déplacement d'un curseur 
formé d'un pavé lumineux de 48 Pixels (6 x 8). 


Î 64 colonnes. | 


Figure 2.2 


3. TABLE TRAÇANTE (T.T.) 


L'aire de traçage est considérée comme un 
système de coordonnées cartésiennes dont les 
axes X et Ÿ sont mis à l'échelle en fonction des 
unités utilisées. 

Pour le format A4, elle est de 11 040 x 7 721 
(unités du traceur) : pour le format A3 de 
11040 x 16158. 


Le tracé 


1. LE POINT 


Pour afficher un point à l'écran il suffit d'allumer 
un pixel. On lie un repère (O.X.Y) à l'écran 
graphique. Le point est repéré par ses coordon- 
nées X1.Y1, par exemple. 


Le traceur graphique est capable de dessiner sur 
des supports de quatre formats : 
ISO A4 (210 x 297 mm) 

ANSI À (8.5 x 11 pouces). 
ISO A3 (297 x 420 mm) 

ANSIB (11 x 17 pouces). 


L'origine des coordonnées est située dans 
l'angle inférieur gauche. 
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ÉLÉMENTS GRAPHIQUES 


". Organigramme 


DEBUT. 
LIRE X1, + 
A=F CX). 


AFFICHAGE DU POINT. 


23. 


de lssmesassss LRESS: les), 


X 


TS. 1 1. 


O. 
Figure 2.3 Figure 2.4 


Programme (E.G.) (d'après le listing) 


10 ELS: Netioie 1 ecronr 


20 PSET <2S0, 125). 
AZ, NZ. 


—srsêructionr gui lime Je /PO0IntÉ. 


RUN. mess OU CRUE CL NT D'ONSCSÈS Or 
PreGT Emme. 
Figure 2.5 
Représentation sur l'écran 
L1 
Figure 2.6 


Programme (T.T.) 


Remarque 


L'utilisation de la table traçante nécessite l'appel des instructions de 
commande tirées du P.COS, langage machine. Ces commandes servent à 


initialiser la table. 
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10 Sous-programme d'initialisatiomn de 


ÉLÉMENTS GRAPHIQUES 


la table. 


100 AS$=’°SP1; PUPDXI1. Y1: ‘ ‘: gosub SO000. 


TT — 


se2 
RUN. | 

| 

{ 


Figure 2.7 


2. LE SEGMENT DE DROITE 


; es 
nuire nest 


a _—_ 


Sous-crogr one. 
Pen Ye. ler Dow’. 


Plorme N J. 


Un segment de droite est défini par ses deux points extrêmes (A) et (B). 


N 


-— FEMOTGUEe SU 10 naËTe OÙ PrOGJTOMNTmEe. 


*.__ Figure 2.8 
Syntaxe 
REMisee— 
INPUT 2X1, 1, 


—__—— Coordonness. 


- -_ JNSÉTUCÉION 


LINE, CX1..Y 


>—<Xe, Ye). 


-— Loordonnrees 


> LNSÉrUCÉION 


Figure 2.9 


Programme (E.G.) 


10 Trace d'un segment de droite 
20 CLS 

20 INFUT X1,Y1 

40 INPUT X2,Vva 

80 LINE XL. VIYeCXE, VE) 


Figure 2.10 


c'offecitotion de voeu 


es POINÉS @XÉTerNEæS. 


ce Croce. 
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Exécution 
RUN. 
? 50, 40 La 
de Jnsérucéion de validation. 
| Loorcornees A Jer poïré © jnéroire de c’ovrer 
Le ALLel des vorriables © ærÉérer 


F da 150 
Figure 2.11 Loorcornrees o Le porré © fréroire a clavier 


Représentation sur l'écran 


On s'aperçoit que l'image obtenue n'est pas 
représentative d'une grandeur exprimée en 
millimètres. 

Une échelle de conversion (SCALE), propre à 
l'appareil, permet d'obtenir un tracé dans cette 
unité. 

Pour cela, on trace un segment horizontal et un 
segment vertical qui déterminent les limites de 
l'écran graphique. 


Figure 2.12 


Exemple 
10 LINE (0,0) -(511,0)———— Segment de droite horizontal. 
20 LINE (0,0) -(0,2565)——— Segment de droite vertical. 


Figure 2.13 
La mesure en millimètres permet cette conversion. 


10 CLS. 


20 SCALE 0O, 220. 0. 136. 


Î Le MAX. 
——— VOMIN 
e———— N MEX. 
————— À Mir. 


= JrNSÉrTeCÉrIONT QUI ete mine 7 SySÉEre. 


Ze Coordonnees exorIimees e77 LUTICEe 
cér/isagéeurr 


a0 LINE. <S0. 50 =<100: 150). 


Figure 2.14 7Jrece d'Ur segment Ce droite 
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ÉLÉMENTS GRAPHIQUES 


Programme (T.T.) 
10 GOSUB 4SO0O00: REM Initialisatiomn de la table. 
100 A$=° "spl; PUSO, SO, pdpali0O0. 150; ‘ ‘: GOSUB SOO0OC. 


De même que pour l'écran graphique la longueur du segment obtenu est exprimée en unité du traceur. 
Pour la conversion en unité utilisateur (millimètre), il faut opérer de la même manière que 
précédemment. 


Syntaxe 
SC Xmimn, Xmax, Ymimn., Ymax. 
_——.(SCo/e)s JrSÉTUCÉIET UT . 
Ceterminre J'æc/hel/le d'LérZ]zr- 
sation de Ja Cable Éracorée.. 
Figure 2.15 


3. LE TRIANGLE 


Le triangle est obtenu par le tracé de trois 
segments de droite définis par les coordonnées 
des points extrêmes. 


Ÿ: 


X. 


Figure 2.16 


: . Ki, Xe . X3. 
Le tracé sur l'écran, suit l'ordre établi par le programme. 


Syntaxe 


Les guillemets qui suivent l'instruction INPUT aident l'utilisateur à entrer les données par l'affichage 
des variables à l'écran. 


INPUT °7X1=, V1=°°,X1, Y1. 
AFFIC/Nage es Vvor1c01es. 
Figure 2.17 
19 


ÉLÉMENTS GRAPHIQUES 


Programme (E.G.) Exécution 

10 CLS 

20 ‘Traces du triangle RUN. 

30 SCALE 0,220,0,136 

40 INFUT "Xi=,Yi=";X1,Y1 

50 INFUT "X2= Va=": Xe Ve X1=. Y1=.50. 10. 
60 INPUT "X2=,Ya=";X3, Va 

70 LINE (X1,Y1)-4(X2, V2) X2=, Y2=.100. 80.[CR.] 
80 LINE (X2,Y2)-(X3, V2) 

90 LINE (X3,Y3)-(X1,Y1) X3=, Y3=.1680, 20.[CR.| 
Figure 2.18 Figure 2.19 


Représentation sur l'écran 


—— 


Figure 2.20 


Programme (T.T.) 

10 Soue-programme d’initialieation da la table. 
100 A$=°°SP1: PUS850, 4400. PDS850. 4400: PA64S0, 4500: 
5700. 3200. 5850, 4400’ ‘: goeub SOO0C. 

Figure 2.21 


4, LE RECTANGLE 


La méthode de tracé peut être la même que celle 
que l'on a utilisée pour le triangle. 

Comme  X1(A) =X4(D), X2(B) = X3(C), 
Y1(A) = Y2(B), Y3(D) = Y4(C), l'ordinateur 
pourra tracer le rectangle à partir du programme 
suivant. 


Ta Vlessssss e 


Figure 2.22 X4, X4, X2, X3. 
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Programme (E.G.) 

19 ‘Trace du rectangle 

20 CLS 

20 SCALE 0,220,0,136 

40 INPUT "Xi=,Viz";X1, 1 

50 INFUT "X2=,Vaæ"; X3,Y3 

60 LINE (X1,Y1)-(X3,V3,,B Figure 2.23 


Syntaxe 
60 LINE CX1. Y12-CX3. Y32..86. 


.. B=-Box. 

Jnstrectrson qui permet 1e. 
êreoce où) ræctongieæ © ParCir 
ces coorconnrees Ces sommecs 


eposes A ec CL 
Figure 2.24 


Exécution Représentation sur l'écran 


RUN. 


X1=, Y1=50. 30. 


X3= Y3=190. 90.[CR.] DU 
Figure 2.25 | 


Figure 2.26 
Programme (T.T.) 


10 Sous-programme d’'initialisation de la table. 
100 A$=°"epl;: puS900. 4350. PdSSO00. 4350. 6300. 43S0. 


5300. 28S0. SS00. 28S0. S900. 4350’: goesub SOUOC. 


Figure 2.27 


21 


ÉLÉMENTS GRAPHIQUES 


Les figures 
polygonales 
inscrites 


à 6  hiené 


lyaA=vc+AxSin (T) 
eds ide 


lyB=yYc+Axsin (T+dT) 


O 


Figure 2.28 
La représentation des polygônes réguliers est facilitée par l'emploi d'un tracé répétitif. 
Ils sont obtenus par une suite de segments égaux (A, B), À et B appartenant au cercle. 


Organigramme 


Boucle FOR . NEXT 


L'instruction (RÉPÉTER » de 7 = O jusqu'à 6.3 
avec un PAS DE 0,1 se traduit en BASIC par : 


FOR T = 0. TO 6.3 STEP 0,1 … NEXT T. 


Repeter de I=0 jusqu'a 


5 6.3, avec un pas de O.1 


Elle précise les valeurs initiale et finale de la 
boucle ainsi que son PAS. L'instruction agit 


| | 
| pe re] | comme un compteur qui augmente de la valeur 
seumant de droite | ; du PAS (incrément) jusqu'à la valeur finale 
CORCRERTS | connue. | 
DE i A chaque étape, il y a passage dans le corps de la 
"7 boucle qui effectue le travail exigé. Dans le cas 
présent : tracé d'un segment de droite. 


Figure 2.29 
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Exemples traités 


20 

ee nn 
T=0 dT=P=60 T=0 dT=P=120 
EXEMPLE 1 EXEMPLE 2 


Figure 2.30 


Exemple 1 (affectation directe des données) : 


Programme (E.G.) 


10 CLS 

80 SCALE 0,280,0,1% 

30 XCæ100:VCs60:Re50:F#60 

4) GOSUR 1000 

50 END 

1000 ’Trace de fiqures ingarites gur E,G. 
1010 FeFxs,14/180:/ Transformation degrees radians 
1080 FOR T=0 TO 6,3 STEF F 

1030 XA=XC+RXCOS CT) 

1040 VAZYC+HRXKSTN CT) 

1050 XBEæXC+RXCOS CT+F) 

1060 VREVCOHRXSIN CT+F) 

1070 LINE (CXA.YA)-CXP,YP) 

1980 NEXT T 

1090 RETURN 


Figure 2.31 


ÉLÉMENTS GRAPHIQUES 


T=0 dT=P=.70 


EXEMPLE 3 


Exécution Représentation sur l'écran 


RUN CR 


Figure 2.32 


Figure 2.33 
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ÉLÉMENTS GRAPHIQUES 


Exemple 2 (introduction de données) 


Programme (T.T.) 


10 GOSUR 45000: "initialisation de La table 
100 INPUT % { 

110 INFUT " 
150 GOSUE 1000 
LEO END 


1000 ‘Trace de figures ingarites uv TT 
1010 F .14/180 
Fe 
pe # 
y 
x 
EE 


1070 GE: 
50000 
1080 NEXT T 

1085 Age "FUO, 0: ":HOSUR 50000 


Figure 2.34 


Exécution 
AUN 


XC=, YC=P sn COM ODONMeEES D CEnÉTe 


R=, Par? > [yon D CETCLIE CISCONSCT TIÉ EÉ DES (<F600eY./ 1} COÉES/ 


Figure 2.35 


Représentation sur la table traçante 


, 


Figure 2.36 


Exemple 3 (liste de données DATA) 
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Syntaxe 


DATA 
D ZNSÉTUCÉZON DETMEÉ D'INCOTDOTES SU 


ATOQTSMME UNE LISÉE DE DONNEES SOUS FOTME 
ge CONSÉSGNÉES QUI DOUSTONÉ EÉTE LUeES SÙU 
MOYEN D'INSÉTUCÉIONS FEAÎ. CES DONNEES SE 
ÉrouvenÉé de Drerference 8 18 FIN OU LTO- 
IT OMNE, EÎIES SONÉ SEOSTCES DO LE 


virgule. 


Figure 2.37 


Programme (T.T.) 


10 CLS 

29 SCALE 0,220,0,13 

30 READ XC,VC,R,F 

40 GOSUR 1000''trace de figures inscrites sur E.G, 
30 END 

190 DATA 119,55,50,78 

1000 ‘Trace de figures inscrites 

1010 FeFxz, 14/1680: transformation degres ,radians 
1020 FOR T0 TO 6,27 STEP F 

1030 XA=XC4+RXCOS CT) 

1040 VAZYC+HRESTN CT) 

1050 XP +XC4+RXCOS CT+F) 

1060 VB=VCO+RXSINCT+F) 

1970 LINE CXA,YA)-(CXE,YB) 

1080 NEXT T 

1099 RETURN 


Figure 2.38 


ÉLÉMENTS GRAPHIQUES 
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ÉLÉMENTS GRAPHIQUES 


Le cercle 


YC 


6T XC - 


Figure 2.39 


Le cercle est défini par les coordonnées de son centre et son rayon. 


Syntaxe 

10 CLS 

20 ‘Trace du cercle 

30 SCALE 0,220,9,134 

&D INFUT "XC=,vYC0=";:X0,YC 
50 INFUT "REF 

60 CIRÇCLE(CXC,YO) ,KR 

70 END 


Figure 2.40 


Programme (E.G.) Exécution 


10 CLS 

80 ‘Trace du cercle 
30 SCALE 0,220, 0,134 
&OD INFUT "XC=,YOz";XO VO XC=, YC=? 115,65 [en] 
50 INFUT "R="E 


RUN 


60 CIRCLE(XC, YO) ,R > 
70 END do 
Figure 2.41 Figure 2.42 


Certaines machines, dont le M20, disposent de l'instruction CIRCLE. 
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Représentation sur l'écran 


ÉLÉMENTS GRAPHIQUES 


Figure 2.43 


Le cercle peut aussi être considéré comme un ensemble de points M dont les distances à l'origine du 
repère peuvent être calculées à tout instant en faisant varier l'angle T de O à 6,28 radians. 


Figure 2.44 


Programme (E.G.) 


10 OL 

20 se du cerole par points 
40 SCALE 0,220,0,134 

40) XCe Om KO, VO 
30 Fe : 


60 F E 

FO KLeXC+RRCOS CT): VLEVC+RXSTN CT) 
90 FSETCX1L, V1) 

EÛ À TT 

10) END 

Figure 2.45 


Remarque 1 


Ce tracé du cercle nécessite le calcul et /a 
visualisation de tous les points tels que M. Ce 
tracé répétitif est exécuté par la machine à l'aide 
de l'instruction FOR … NEXT (voir chapitre 2, 
Généralités). 


Remarque 2 


Nous conseillons au lecteur d'utiliser systémati- 
quement l'échelle de tracé (cf : ligne 30-scale). 
[/pourra s'apercevoir, en la supprimant, de l'effet 
obtenu. 
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ÉLÉMENTS GRAPHIQUES 


Exécution Représentation sur l'écran 


RUN 
XC=, YC=?7 115, 65 CR 


— 03 | 


Figure 2.46 


LC 


Figure 2.47 


Remarque : Tracé de l'arc de cercle 


On obtiendra un arc de cercle en modifiant, dans la ligne 60 du programme (E.G.) précédent, les 
limites de l'instruction FOR … 


Exemple : FOR À = 0 TO 4.71 step 0.01 


L'ordinateur tracera, dans ce cas, les trois-quarts du cercle. 


Programme (T.T.) 


Syntaxe 


L'instruction CI permet de dessiner un cercle ayant un rayon donné et un angle au centre (en degrés) 
sous-tendu par une corde donnée. 


Ÿ o 


Depart du trace 


A: Angle de la corde 


Figure 2.48 
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Lorsque le traceur reçoit cette instruction, la plume se lève (si elle était baissée), se déplace du centre 
du cercle vers le point de départ du tracé: la plume s’abaisse, dessine le cercle et retourne en position 
levée vers le centre du cercle. 


10 Sous-programme d'initialisation de la table 


100 A$=""PA125, 90; CI40; PU; ‘ '‘: GOSUB 50000 
——#me “ANS ÉUCL LION de race EeÈ 
| Valeur OU Ta, 0/1. 


a CoOOTTONNeeS JU CENÉTE 
Figure 2.49 


Représentation sur la table traçcante 


Figure 2.50 
pe 
| PIERRE ER Remarque 
Le tracé d'un arc de cercle sur la table traçante 
nécessite l'emploi d'une autre instruction : 
EE l'instruction aa (arc absolu). 
Exemple : 


10 Sous-programme d'initialisation de la table 
100 A$S='""sp2; pa1i25, 130; pd: 28125, 90, 270; pu; ‘ ‘: gosub 50000 


Valeur ge 7 ‘arc #7 Ce 
ge COONTONNEES Qu CanrÉTe 


æ ‘arc 


REP RTE TS Coorgonnrees Ju DOLNTÉ 


Teæ eo é ge race 
ge L'arc ge Cercie 


ge ao? 40 


Figure 2.51 


Nota : Tracé du cercle en trait interrompu court (cercle caché) 

Ce tracé peut être obtenu, sur écran graphique, en utilisant un programme étudié dans le chapitre 4 : 
sous-programmes. 

Une instruction particulière étudié à la fin du paragraphe page 36 permet la représentation sur table 
traçante. 

Enfin, le sous-programme 48000 du chapitre 4 pallie l'absence de cette instruction sur certains micro- 
ordinateurs. 
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L’ellipse 


L'ellipse, image du cercle, est caractérisée par son centre O, son axe horizontal AB et son axe vertical 
CD 


Figure 2.52 


Syntaxe 


L'instruction CIRCLE vue précédemment permet son tracé. Le paramètre R représente alors le demi- 
axe horizontal. On complète par la valeur K du rapport entre l'axe vertical et l'axe horizontal. 

En raison de la distribution non uniforme des pixels sur l'écran, ce rapport doit être multiplié par un 
facteur correcteur : le rapport d'aspect égal à 0,807. 


60 CIRCLE (X1, Y1), A,, KxO.807 


| AMODOOTÉËÉ d'ISDECÉ 
— positif renresenéagnmé 16 
TIDIOTÉ DES XES 
Sevarateur (2 Virguies/ 
Coordonnees du Centre eÉ Valeur 


QU DEMI-IXE NOT IZONÉ SLI 


mes AA AS EU VE 60/7 © EC 


Figure 2.53 


Exemples 


Valeurs introduites 


Figure 2.54 


Programme (E.G.) 


LD OLS 

20 ‘Trace de l'ellipse 

40 SCAL J,220,0,136 

40 INFUT me, Viet XL VI 

30 INPUT ur Ke KR, K 

40 CIRCOLE (X1,YIY KR, ,Kx.807 
70 END 


Figure 2.55 


Exécution 

RUN 

X1=, Y1=7 115, 70 
A=,K=7?7 40, .5 


Figure 2.56 


Figure 2.57 


ÉLÉMENTS GRAPHIQUES 


Représentation sur l'écran 
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Programme (T.T.) 
Voir le chapitre 4, paragraphe Sous-programmes (page 142). 


Remarque 


On peut utiliser l'instruction CI correspondant au tracé du cercle. Siles unités de l'utilisateur n'ont pas 
la même dimension sur l'axe des X et sur l'axe des Y. le dessin obtenu sera une ellipse. 


Les traits 


L'étude portera sur les traits suivants : 


ns Crait continu 
œe, en = en (ee tes en ee = = is à trait interrompu court 
= me ne = ms trait mixte 


mm os on etes “mnt ‘en ment ‘eus ‘ee trait mixte a deux tirets 
Figure 2.58 


Certains ordinateurs comme le Goupil, possèdent une instruction spécifique permettant le tracé 
immédiat de chacun de ces traits. 

En ce qui concerne les autres appareils, il est nécessaire d'établir un programme donnant les mêmes 
tracés. Pour cela, deux méthodes de programmation sont utilisées. Elles sont fondées sur le caractère 
répétitif du module constituant le trait. 


On choisit, par exemple, les modules suivants : 


— — ——— pour le trait interrompu court 
modu1e=TIAET+ESPACE 


pour 1e trait mixte 
module=TIARET LONG + TIRET COURT 
+ 2 ESPACES 


- = es pour le trait mixte 8 2 tirets 
Mmodule=TIRET LONG + 2 TIRETS 
___ MOTULE_ COURTS + 3 ESPACES 


Figure 2.59 


Pour le trait continu on se reportera aux tracés d'un segment de droite sur écran et sur table traçante. 
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a) Trait interrompu court horizontal 


Boucle FOR....NEXT 


Figure 2.60 
V4 __— : e mm 
2 Se e mm 

à on A |. llongeur du trait 

FER 1150 mm 
2e = X 

X1+2e X1+4 

Figure 2.61 
Programme (E.G.) 

se d'un trait interrompu couvt hovizontal 


%é 
INFUT de L'ovigine du trait, A" A 
40 INPUT "'Abscisse de l'extremite du trait, BR 
50 INFUT "'Ovdonnee de l'origine du trait, Y"iY 
40 FOR XeA TO BP STEF 4 

FO LINE CK,Y)-CX48,4v) 

5O MEXT X* 


Figure 2.62 


“Abe 


Remarques 


— La valeur du pas (ligne 60), est égale au module. 


— La normalisation des traits préconise un espace de 1 mmentre chaque tiret. Dans ce programme, 
nous avons augmenté cet espace pour des raisons de résolution graphique et de lisibilité du tracé. 


Représentation à l'écran 


———— 


Figure 2.63 


A=20 B=170 Y=50 longueur du trait=150 
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ÉLÉMENTS GRAPHIQUES 
b) Trait mixte fin vertical 
Boucle WHILE … WEND 


Ÿ Tiret long: 
10 a 20 mm 
| 8 Donnees |[Tiret court: 
. e mm 
Espace: 2 mm 
Longueur du trait 
AB 
Y+16 
Y+14 
Y+1e 
Y+10 
YA 
X 
x1 Figure 2.64 


Programme (E.G.) 


LD COLE: Trace d'un Erait mixte vertical 

0 SCALE 0,280,0,136 

320 INPUT 'Ordonnee de l'origine du trait, A";A 

40 INPUT "Q nnee de l'extremite du trait BR 

50 INFUT M"'Abscisse du trait, X1";:Xx1 

60 Vis A:UWMILE YIi<eR 

70 LINE CX1L,Y1)-CX1,Y1A+IO):LINE (X1,Y1+18)-CX1,Y1+14) 
80 YizYl+16 

90 VEND 


Figure 2.65 


Représentation à l'écran 


A=O | 
(l 
B=130 | 
(l 
X1=110 | 
! 


Figure 2.66 
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ÉLÉMENTS GRAPHIQUES 
c) Trait mixte à deux tirets 
Boucle FOR … NEXT 


Cet exemple étudie le tracé du trait mixte à deux tirets dans une position quelconque. Îl est d'ailleurs 
possible d'utiliser ce programme pour traiter les traits précédents dans une position donnée. 


8 

Y 

l Ed Pa 

| HA 

ET. É 
| M2 e- 
| d e, | Donnees 
idem + 
Y1+10%s8in (T) | | T (radians) 
| 


Ne | | NE R 
4) UAué gd” Ÿ 


8 5 09 0% 0% 0$ 
7 07 07 07 07 # 
DO EE NE ni 


Figure 2.67 


Programme (E.G.) 


10 CLS:"trace d’un trait mixte à deux tirets quelconques 

20 SCALEO,220,0,135 

30 INPUT "Abscisses et ordonnées de A";X1,YI 

40 INPUT "Abscisses et ordonnées de B";X2,Y2 

50 IF Xi = X2 THEN GOSUB 100ELSE GOSUB 200 

60 END | 

100 1F 1 > Y2 THEN YŸ3 = V2:Y2 = Yl:Y1 = 3 

105 WHILEY1 < Y2:X = X1:1 = 1,58: GOSUB 300 

110 W END 

120 RETURN 

200 T = AIN C{Y2 - Y19 / CKX2 - X19) 

203 IF X1 > X2 THEN X3 = X2:X2 = X1:X1 = X3:Y3 = Y2:Y2 = Yi:Yi = Y3 

205 FOR X = X1 TO X2 STEP 20 # COS “T) 

210 GOSUB 300 

220 NEXT X 

230 RETURN 

300 LINEGX,%Y1) - €X + 10 *# COS (T2 ,Y1 + 10 *x SIN (To) 

310 LINECX + 12 *# COS (TD ,Yi + 12 #% SIN CT)) - €X + 14 x COS T2 ,Y1 + 
14 # SIN 4T)) 

320 LINEUX + 16 *x COS (T),Y1 + 16 # SIN (T2) - 6X + 18 *# COS (T),Y1 + 
18 *% SIN (T)) 

330 Y1 = Y1 + 20 # SIN (T) 

340 RETURN 


Figure 2.68 
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ÉLÉMENTS GRAPHIQUES 


Représentation à l'écran 


Figure 2.69 


Représentation sur (T.T.) 


Une instruction particulière (LT), propre à 
chacun de ces traits et introduite dans la ligne de 
programme, permet leur représentation sur table 
traçante. Cette instruction LT est suivie d'un 
premier paramètre correspondant au motif. Le 
second paramètre spécifie la longueur du motif. 


Figure 2.70 
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Remarque 


Le module est ici égal à 20 millimètres quelle que 
soit l'inclinaison. Si T = 0, on obtient un trait 
horizontal; si T = 1,57 (x/2), on obtient un trait 
vertical. Il est donc possible avec ce programme, 
en modifiant les lignes 205 et 300 à 330, 
d'obtenir les traits vus précédemment et ceci 
quelle que soit leur orientation. Les sous- 
programmes correspondants à ces traits peuvent 
être utilisés dans le cadre du D.A.O. (dessin 
assisté par ordinateur). 


LT 

LTO 
LES 
Lire 
LT3 
LT4 
LTS 
LTS 


ÉLÉMENTS GRAPHIQUES 


Les hachures 


1. TRACE DES HACHURES EN CONTINU 


pièces Vota : L'étude et les exemples porteront sur des 
hachures inclinées à 45°. 


Représentation en coupe des 
prismatiques. 


| 


Figure 2.71 

Le tracé d'un point quelconque (AX, AY) d'une 
hachure est possible s'il appartient à l'une des 
quement par l'équation Y = — X +H pour le équations précédentes et si le point considéré 
sens a (coefficient directeur de la droite (D1) est à l'intérieur du plan délimité parles points M, 
négatif) et Y = X + H pourle sens b (coefficient NN, O, P. | 
directeur de la droite (D2) positif). 


Les hachures peuvent être inclinées dans le 
sens a où le sens b. Cela se traduit mathémati- 


a) Limite des équations de tracé des hachures 


(AX. AY) 
TE 


Le 1 7 xe 


Figure 2.72 
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ÉLÉMENTS GRAPHIQUES 
Les hachures sont distantes d'un pas constant 


qu'il conviendra de choisir suivant les dimen- 
sions de la pièce. 


b) Limites de tracé 


Chacune des droites (D1) aura une position qui 
variera de X1 + Y1,en augmentant de une fois le 
pas, deux fois le pas, ., N fois le pas jusqu'à la 
valeur extrême X2 + Y2. 


e Limites verticales : FOR AX=X1 TO X2 STEP .5 


e Limites horizontales : AY<Y1 Calcul du point 


suivant. 


AY>Y2 L'equation de la droite passe de Y=-X+H a 


Y=-x+ (H+PAS) 


Figure 2.73 
Organigramme 
DEBUT 
J'INITIALISATION/ 
/ X1, Y1, Xe, ve 
FOR H=X1+Y1 TO X2+Y2 
n STEP PAS 
FOR AX=X1 
STEP 
" 
l 
| | 
| PSET AX, AY | 
EE  _ 
FIN 
Figure 2.74 


38 


ÉLÉMENTS GRAPHIQUES 


Programme (E.G.) 


10 CLS 

20 INPUT "coordonnée du sommet inférieur gauche a=,b=",A,E 
30 INPUT "largeur ,hauteur:11=,12=",L1,L2 

40 INPUT "espace entre les hachuresie="3E 

930 SCALEO,511,0,25é6 

60 LINE‘A,B) - CA + Li,B):LINE(A + Li,B2 - (4 + Li,B + L2) 
70 LINEGA + Li,B + L29 - {4,B + L2Z):LINESA,B + L2) - (À,B) 


80 FOR H = À + B TO Li + L2 + 4 + B STEF E 
90 FOR X = À TO Li = À STEP .5 
I00 Ÿ= -X+H 


110 IF YŸ € B THEN 150 

120 IF Ÿ > B + L2 THEN 140 
130 PSET{X,) 

140 NEXT X 

150 NEXT H 

160 END 


Figure 2.75 


Représentation sur l'écran 


Figure 2.76 


Programme (T.T.) 


Le programme (T.T.) se rapporte à l'exécution sur la table traçcante nous donne le deuxième 
des hachures dans le sens b. La représentation sens d'inclinaison. 
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ÉLÉMENTS GRAPHIQUES 


a Yi CONTE LT 


qu MAGHTTé 
de XA,X2,VI et VE € 


En LM 


de LT fdesalade mi 


41000 


UE LÉ + pd RE TRUE COX HE TRUE CR à 


MCPNA, "UM, 8EX, AS, 23,109) 
#1 TG LOO0:NEXT 


SO 110 
s0120 


Figure 2.77 


Remarque 


Dans le chapitre 2, les différents programmes se rapportant à l'utilisation de la table traçante, 
commencent par la ligne : 


10 «/INITIALISATION DE TABLE» 


Le fonctionnement de cette machine, couplé à l'ordinateur, nécessite des instructions spécifiques 
détaillées entre les lignes 45000 et 50030, et qui constituent cette initialisation. 

Une étude de ce sous-programme est faite au chapitre 4. 

L'envoi à ce sous-programme (GOSUB 50000) doit être placé systématiquement en début de 
programme. /l est indispensable au fonctionnement du traceur. 
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ÉLÉMENTS GRAPHIQUES 


2. TRACE DES HACHURES PAR BALAYAGE 
HORIZONTAL DE L'ECRAN 


Points eteinte Points eteints 
À Points ellumes 


Figure 2.78 


Dans le trapèze défini par les points M, N,OetP, 
les hachures inclinées dans le sens a se tracent 
par une succession de points. 


a) Signification mathématique 


Yi "À 
LA 
i 4 d 
1 > 
1 
1 

+ = Ent br de Dr se tt 4 De 
| X 
1 
1 
o 
? a 

#7 
s: Fa 
| A 
si 4° 
ln 
ni dl 
7 « CE 4) 

RE PR une TE 

1(4, 0) 
i 


Figure 2.79 
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ÉLÉMENTS GRAPHIQUES 


Tout point appartenant à la droite (D1) vérifie 
l'équation : 

Y—X+4=0. 
Exemple : le point de coordonnées 
0—-4+4=0 
Que se passe-t-il de chaque côté de cette droite? 


(4, O) : 


Exemple : le point de coordonnées 
0—-0+4>0. 


(O0, O) : 


Tout point situé à gauche de la droite (Di) 
vérifie l'inéquation Y — X + 4 > 0. 


Exemple : le point de coordonnées (10, 1) : 
1—-10+4<0. 


b) Limite de tracé et inclinaison des hachures 


e Limites verticales : 


e Limites horizontales : 


Syntaxe 


Tout point situé à droite de (D1) vérifie 
l'inéquation Y — X +4 <0. 
FOR Y=Y2 TO Y1 STEP -P 
" 
LU 
$ 
ie ” È 
x2 \ X 
Figure 2.80 


_— FOR X=X1 TO X2 STEP 5 


_— IF F1(X, Y) <O THEN 


sortie de boucle : &«Z = X; X = X2». 


— NEXT X 


"Debut de tracage, 


_— FOR X=Z2 TO X2 STEP 5 


— IF F2(x, y) <O THEN 


fin de traçage «ELSE » tracage. 
__NEXT X 
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* ‘Sortie de boucle, 


c) Inclinaison des hachures 


Figure 2.81 


Syntaxe 


_… I=0O 


= FOR Y=Ye TO Y4 STEP -<P 


FOR X=X1+I TO Xe STEP 5 


Corps de : de ia boue te: | 
_ NEXT X 
I=I+P 
sm NEXT Ÿ 
Figure 2.82 


ÉLÉMENTS GRAPHIQUES 


I-I+P 


Remarque 


Une incrémentation positive sur l'axe des y 
permet d'obtenir l'inclinaison des hachures dans 
le sens b. Le programme ci-dessus doit alors être 
modifié de la facon suivante : FOR Y = Y1 TO 
Y2 STEP EP. 


I=I-P 
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ÉLÉMENTS GRAPHIQUES 


Organigramme 


( DEBUT 
INITIALISATION 
P=0: Z=0 


[FOR Y=Y2 TOY NX 


| — 5 - RP De CO 7 


“FOR X cris 5 To. x2. 


/ .. : :STER mn R 


nee Le 


[re-rvre (x, y) 


OUT. 


X=xe 


NON | 


D: PSET XY | 


- | 
ee 


( FIN | 


Figure 2.83 
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ÉLÉMENTS GRAPHIQUES 


d) Remarque 
_ FOR X=X1+I1-5 TO Xe 


I=0 X=X1-5 
I=1 X=X1+1-5 
I=2 X=X1+2-5 
1=3 X=X1+3-5 
I=4 X=X1+4-5 
SI I=-5 ALORS I=0 ET 
X=X1+0-5 
Figure 2.84 
Syntaxe 
_ IF I1=5 THEN _I=0 
est Ta] ALORS DONNE & L' 14 Vale © 
est faux ConÉInuer 
e Sens des hachures 
Remplacer l'affectation | = | + P (donner à la variable | la valeur | + P ou | — P). 


Programme (E.G.) 
Voir: — Programme (E.G.) page 39. 


(E 
— Programme (T.T.) page 46. 
Instruction PSET(Xx.y). 


Sous-programme (T.T.) 


Figure 2.85 


a 4000 
: 


amme DOPFTT 


EYr mm 


À ( foi nn El 
FNP OX Yi Co Ds 64 43 


JP 44 000 


44 1x0 
441 40 
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ÉLÉMENTS GRAPHIQUES 


LE) Fée PNR CHE, V0 
“à 


GOTO 44180 
BCE PAS TRS OX +E 


ME 


R$Cyian. 


THEN Tel 


e) Application : Tracé des hachures à l'intérieur d'un cercle sur T.T. 


Programme (T.T.) 


Figure 2.86 


è RS 


A GOSUP 45008 :'Initial:sation da la tabie 
2e A$=" our Ur pd 1505 50h 2530 100 501 Bd, 50 SMieur's ISUR 50002 
IG i=50:Vi-50:12=150:V2-100 

àg GOSUR 4208 :'Trace da hachures en continu 
58 END 

LAB ‘Trace des nachires 

LR ’Progrante HACETT LE 

LéME ‘or prosranme DDPTT 

42 ‘Dornar es vateurs de 11: KE Vi: Y2 

&&MO “Doner a vaieur de [(decaiage des hachutes en ni 
LÉO detinir ENFILCX, V)=FNACI, V2 (ou Bliss 

ARE ‘definir FHEZUXS Vi=FNBCY: V2 {ou Lilou) 

LAR7R ‘puis faire GOGUE 44000 

La? ?=, 5:1=0 
A0 FOR V=v2 70 Vi 
d4ièg FOR X=X1-25+ 
ÉGUU FISFNFI EX, vi! 
b4i?e IF Fi)B THEN é=difs 
LG  NENT # 


STE =P =? 
1 TO Ke STEP 


Lin 


Î L 


agi FOR {=7 TO K2 STEP 5 
hài5g FESFNFI EN Y) 
site IF F2)B THEN KsKZ:SOT] ET 
L4i7g Gé=taut+0TAS IX) GTRECVRE, pQ PACTREC KR SERV) +6 pui ti OOSUE 53700 
bai NEXT k 
ÉGiS8 I=i+r 
LIRE IF 125 THEN I=8 
da KEXT V 
LÉITA RETURN 
ni 


CHRRSRMERMERE Initi:atisation de la Tania 
’Progranve INITTAE 

à Et=2: PI 

Re CAl'ot rattORitpi sc'iChitpi ci" 

Ho CAL rat iCAilter com r HD Gr vas 1920" 
SE Li "ci" (0 o", den) 


LS Mar nsentiné 6 (El se diohéiend A0 2, 2751 nuû if pudfi D De, ITS TS E Pros iGOSCE SAR 


in 


ER EN CN CA EL 
Fe 


ÿ) 


Le 
3 Ty 


= EE © FE 


se + + 
DEN r AS + dr 13) 


LCR at QE AE Ts 12) 
FOR TENPe TO SIAEXT 

JO HOU mp A 0% 
kW SE PR Sri] 
1 T0 SéBiNENT 


Représentation sur table tracante 


Fig. 2.87 


ÉLÉMENTS GRAPHIQUES 
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ÉLÉMENTS GRAPHIQUES 


Programme : 
cosse sur E.G. 


Cet exemple, choisi pourillustrer l'utilisation des l'entrée des données DATA des lignes 50990 à 
trois sous-programmes (tracés de cercles, arcs 54060, 
de cercles, segments) permet au lecteur : — d'établir la relation entre les données 


introduites (X, Y, R, A1 et A2) et leurs 


— dese familiariser avec la lecture d'un listing, à ; 
correspondances sur le tracé. 


savoir, 
le corps du programme des lignes 10 à 990, Vota: Pour des raisons de dimensions de la 
les sous-programmes des lignes 1000 à pièce par rapport à l'écran, le dessin est présenté 
39150, horizontalement (voir copie d'écran). 
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ÉLÉMENTS GRAPHIQUES 


Congés non cotes R2 COSSE  Ech:10:1 


Fig. 2.88 
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ÉLÉMENTS GRAPHIQUES 
Programme (E.G.) 
Figure 2.89 


50 


WHTLE 
70 WHILE 
80 WHI 


D, VE, vH:” :] “ ænm 91000 
fan entrer en 51010 


C0 :GOSUR 36000 :VWEND 
RERO) UP 39000: WEND 
L (0 ER 370090 :WEND 


990 ENC 


1000 + 


37 
37020 
37030 


37090 
47100 


37110 
37150 
37130 
7140 
38000 
38010 
38020 
3680%0 
38040 
38050 
38060 
48070 


38080 0 
26090 0 


38100 
#8110 
38120 
8130 


8000 


29010 
9020 


39040 XL 


39050 
#90 


390 70 


ee a a a a ne E OIG PROGRAMMES Em 


Rex TRACE DE GSEGMENTS EN CONTINU 
‘E nv segments 4 entrer en S2000 


Vis FNE CYE) 
LINECX1,YV1)-CX2,Y2) 


RETURN 

FRERE TRACE DE CEROLES 

READ XCO, YO Rita entrer en 53000 
F1 

FOR Te0 TO 6, STEF F 
XLEXC4RXCOS CT) 


VOH+RXSTN CT) 

XC+RXCOS CT+F) 
VOHRXGTN CT+F 
FNA CX 12 


VER NE (Ya 


REEIEE ; Yi) (Xe, ve) 


LÉRÉAN ANS TIMASE D" PES DE CERCLE 

READ XQ,YCO,K, entrer en 54000 
AL=A1KE. 1416/ : ex, 1416/180:Fez, LeGSEN(AS-A1) 
FOR : TO AE STEF EF 


VOHRXE IN CTP) 
FNA CX IL) 

) FNA CXE) 
YizF NB (V1) 

VE FNR (VE) 

LINE CX1,%1)-CX2,%2) 
NEXT T 

ÊsA- 1 

RE TUIN 


50961 


de ce 
97080 


DATA 


DATA 


DAT À 
DATA 
DATA 
DATA 
DAT A 
DATA 
DATA 
DATA 


54000 
54010 


DATA 
DATA 
DATA 
DATA 
DATA 
DAT Er 
DATA 


54060 


Figure 2.90 


Figure 2.91 


eee Dome 
les, s 


DATA 7,1,9 
MT. 2 


DATA : 


RO EENOMbTE de segments et @x 


ÉLÉMENTS GRAPHIQUES 


Nbre de segments en continu, 


Pa PA +5 de 
0,330 ,#04,0 


Ve et K des cercles 
laxxkemasux Xe Va R AL et À des arcs de cercles 


,50,-145,145 

0,35,90 
20,270,325 

20, 50,180 

5, 20,180 ,270 

40,20,270, 360 

150,20 ,0,90 
42,40,20,180,270 

4 150, 0,90, 180 


one 
et 


97 


57 


ctremites des segment 
1,154 
1,154. 
117, 


D 
1,11 
7 

n o 


87:75 
137, 115 


a; 


7 115, 
40, 117 


# x) 


i 
1 
1 
L'; 
ko 


SE COPIE & ECRAH 


% 
7 Te. 
' 
ï, # 
+ F 4 
“ *, 
LE 4 \ 
Rien ta 1, 
; . ï 
# É | 
À, 
( | | 
1, È | 
& ‘ } 
. E / 
sm CE fs 
. 
., n, Hi 
É ; Lx 
| Le # 
u 7 à 
Le 
. ee 
ee 
! 
! 
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ÉLÉMENTS GRAPHIQUES 


Exercice d'application : 
fourche de cycle sur E.G. 


FOURCHE DE CYCLE Patte avant Ech:3:1 


Fig. 2.92 


Rédigez votre programme 


CHAPITRE 3 


PROGRAMMES 


Programme : 


sphère d’attelage 


sur E.G. 


La sphère d'attelage, extraite du dessin 
d'ensemble joint, est obtenue à partir d'un 
programme d'exécution fondé sur l'étude 
méthodique des projections et la mise en place 
des formes fonctionnelles. 

La structure de ce premier exemple fait appel à 
une programmation linéaire. Chaque tracé est 
réalisé à partir de données, en mode d'affectation 
directe, introduites au fur et à mesure de 
l'évolution du tracé. 

Cette programmation simple présente l'inconvé- 
nient de posséder un déroulement figé dans la 


mesure où le type d'affectation de données 
impose la dimension du tracé. 

Dans cet exercice, il est fait appel au seul sous- 
programme de tracé de cartouche dans lequel la 
seule variable est le titre (voir chapitre 4). 

Le premier programme fournit un tracé sur écran 
graphique. Le dessin sur table traçante est réalisé 
à partir du second programme. Il fait appel à des 
sous-programmes particuliers de connexion aux 
sorties utilisées. 

Le lecteur peut constater les différences dans la 
présentation des dessins. 
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PROGRAMMES 


30V 1311V 


LL eneu23 


aJJenb3 


052 aeuds 


LL7- LT 3 AN 7 30 Sup E el]spuoy 


819-173 3N 72WN 4H n0153 


OLW'UH n0133 


SE-OLW'H uonog 


aNnJJ3J 


GENS 


€E0 ; -9zs =84 973 


0 = 
7600: %2=6H 99 


Figure 3.1 
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PROGRAMMES 


ee A A 


HAT 


E ALI 


bent 


di HEMIH- 


OT 5 | 
2pnere 0 10 


Figure 3.2 
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PROGRAMMES 


Programme (E.G.) 


Figure 3.3 


1 'le 29-07-65 

10 "ÉLÉSELÉFESÉELEEEEEE CPFHERE D’ ATTELAGE £££ 
LÉLÉ 

Fe [a] LS RES F* vo a] Vvamme e F H E F: E di ii aie saut: site Bois a coté Lu aive see Gide dén cuis ses déoù AS Gien ni ee 


#0 COLOR 0,1 

40 CLS 

50 CALL "la'"C"SPHERE",1,50,1%,0) 

60 OURSOR C1,19 : INFUT AS 

70 CLS:INFUT M'Ecran couleur tapez 9 ou N :":KR# 

80 IF Ké="O" THEN CO=0:Clel:C2=2:03e3 ELSE Qis0:C0Os1l:CEe1: 02 


90 COLOR CQ,C1L: COLE: GOSUR 10000:’ Trace du cartouche sur En, 
100 CURSOR CL, 1) :INFUT A 

108 eee eTrace des 
110 X#10:A%400:UHILE 
X+25,12#0)-€X4+30,130) 

120 X=X+235 

130 WEND 

140 CURSOR C1, 1): INPUT À 

150 Ye80:Ba1lSO:UHILE V<&BR:LINE (75,9)-6(75,Y+R80O) LINE CS, Y+E 
5}-(75,Y+30) 

160 VeV+35 

170 WEND 

180 V=80:Be180:UHILE YésB: LINE C800,Y)-C200, +20) LINE CE00,% 
+25)- (200 ,V%+30) 

190 Vav+rs 

200 WEND 

EDS eee Tnase des formes fonctionnel leg 

210 QURSOR (1,1): INPUT A$:’Trase de La forme spherique 

20 FOR X#1 TO €&,28 STEF .01 

230 FSET C5S0xCOS CX1+75,,86xS0XSINCX) +130) 

240 NEXT X 

250 FOR Xe,5408 TO 5,7292 CTEF .O01 

260 FSET (50xC06 (Xi+200,,86xS5S0XSINCX) +130) 

70 NEXT X 

280 CUREON CL, 1): INPUT A$:'Trace de la forme eylindridueæ 

290 FOR Xe0 TO 4,28 STEF ,01 

300 FSET CE8xCOS(X)+75,20x,B6XGINCX) +120) 

310 NEXT X 

Se0 LINE (290,108)-(305,108) ::LINE (C205,108)-(305, 1883 :LINE € 
305,1952)-(290,152) 

3220 CUREOR CL, 1): INPUT A$:/Trace de la couronne cireulaire 
340 FOR X=0 TO 4,58 STEF ,01 

280 PSET (35*xC05CX)+75,20,1XSINCX) +120) 

360 NEXT X 

379 LINE (290,100)-(290,160) 

380 CURSOR C1, 1): INPUT A$:'Trace du filetage 

390 FOR X#1) TO @,28 €TEF ,01 

400 FSET CEZxCOS CX1+75,18,S2xGINCX) +130) 

410 NEXT X 

&EOD LINE C310,110)-(405,110) LINE (405,110)-(405,150) 

430 LINE (C405,150)-C310,1S0) :LINE (310,150)-C310, 110: 

440 CURSOR CL, 1): INPUT AS: Trace du fond de filet 

450 FOF Xe TO 4,71 STEF ,01 

460 FSET CLéXCOS (XD +75,13,746XEINCX) +120) 

470 NEXT Xx 

480 LINE CX10,114)- (409,114) :LINE (409, 1446)-(310,146) 


Fa PS Si 


X<=A:LINE (CX,130)-(X+20,130) :LINE € 


4PQ eme Tpace des volumes enveloppes 

500 Rire CL, LD: INPUT A$: Trace du cylindre et du tronc de 
de a La sphere 

| D,160)-(C280, 160) :LINE CE80,160)-(C280,100) 

320 LINE 9,100)-(290,100) 

530 LINE (E80, LéD) - (255,151) 

540 F 7854 TO 5,1434 STEF .01 

TOCLEKCOS CX) 4850, 10, XEXSTN CK) +140) 

CT X 

SOR (1,1): INFUT À 

LINE C290,100)- (255,109) 

FOR Kæ1,1146 TO 2,4946 GSTEF ,01 

(Lex 005 (X)4+250, 10. 22XSIN (XI +100) 

TX 


410 
BEN LINE (845,1123)-C245, 147) 


1,19 : INFUT A4 : Trace du chanfrein 

#4 [0] LINE (405, 1103- (409,114) : LINE (409 ,114)- (409,144) 

630 LINE (C409,146)-(C405,150) 

660 CURSOR CL, 1): INPUT A$:'Trace de la gorge de degagement 
670 LINE See ,Lé4é)- (310,146) 

.114)3-(C310, 114) 

2 INFUT a$ 

pe me eme e Mi GS AU net des vigne ne ne me nee 


19 FOR X=0 TO 6.28 STEF .O01 
1 PSET (4PxC005 (X) +75, ,B6x49xXS IN CX) +130) 
NEXT_X 
740 FOR X=,5408 TO 5,7392 STEP .01 
750 PSET (49xC08 (X) +200, .B6X49xG IN (X) +130) 
740 NEXT X 
770 CURSOR CL, 1): INEUT A$ 
790 FOR X=0 TO 4.28 STEP .01 
790 PSET (27xC06 (X) +75, 27%, B6XE IN CO +130) 
800 NEXT X 
810 LINE (290,109)-(305,109):LINE (304,109)-(3%04,151):LINE € 
304 ,151)-(290,151) 
820 CURSOR (1, 1):INEUT A 
#30 FOR X=0 TO 6.28 STEF .01 
940 PEET CZ4x006 CX) +75, 34%, B6XSIN (XD +130) 
950 NEXT X 
géti LINE (289,100) (289. 160) 
270 CURSOR CL, 1) :INEUT A$ 
880 FOR X=0 TO 426 STEP .01 
ben ESET CPLXC0G O0 +75, 21%, B6XSIN CX) +130) 
900 NEXT X 
15 UE CI1O, 1100406, 111) :LINE (404,111) (404, 149) 
920 LINE (404 ,149)-C#11,149):LINE (311,149)-(311,111) 
UREOR CL, 1): INPUT A4 
A Aa) GB 139) AÛINE (281,159)-(281,101 :LINE € 
A, 101) 
(LL): INPUT A4 
(280, 127 CSS 250) 
(280, 5 
(405, as 0409418 LINE (408,115)-(408,145):LINE ( 


990 1. 


409, 145) 405,148) 
1009 CUREOR a, L' INPUT ÀA$ 


10,145): LINE (305,115)-(310,115) 
RU partiel lee ces 


1020 COLOR C0, 01 

1040 LINE € 90,60)-(150, &0) : LINE a 94) 
1050 LINE (175,94)-(C170, 92) LINE C175,94)- (174,89) 
1960 Cf Le "Gpt ‘eve 0 50",85,68,1 .0) 


1070 GURSOR CL,12: INFUT A 
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110): LINE (405,150)-(4%30,150) 

150 

3 D,11O) LINE (425,110)-(428,115) 

INE ,145)- (425,150) :LINE (425. .150)- (428,145) 

ER L TE C°Me 24",415,120,1,1) 

\ 4,4) ©: INPUT A$ 

100-290, 40) © LINE (409,114)-(C409, 40) 
20)-(409, 50) 

, 50) (297; 48) : LINE (260,50)-(C297,52) 

(409. 30) + (404, 4B):LINE (409,50) - (404,52) 

1 n'tréin, SE , 0) 


1 140 
L'L50 
11460 
1170 
1180 


00,40) :LINE (200,50)-(290, 50) 
50)-(285,52):LINE (290,501- (285,48) 
30:50) (205 LINE (200,50)-(205, 4€) 
“ét4é" 240,52, 1,0) 
1): INEUT A$ 
5,108)-(305,60):LINE (290,70)-(305,70) 
,70)-(285,68) :LINE (290,70)-(285,72) 
70)-(310, 6 LINE (305,70)-(310,72) 
ing ; Por ur La] , 0) 
1,1): INEUT dé 
(305,108) - (360,108) :LINE (%05,152)-(360,152) 
INE (350,108) (350,152) 
LINE (350,108)- (247,102) :LINE (350,108)- (353,102) 
LINE (350,152)-(347,157):LINE (350,152) (353 157) 
CALL"1a" ("D 26h8",360,162,1,1) 
RGOR CL, 1): INEUT A% 
COLOR C0, CL 
INE (290,150) (290,210) 
(405,195) (360,205), ,P 
(319,195)-(319,205) 
(309, 197)-(315,197):LINE (312,197)-(312, 202) 
= (305,200) :LINE (290,200) - (295,202) : LINE 


CAL" A 
QURSOR 


1, 200 (350, SOU) LINE (C350,200)-(350,152) 


: 46 STEF 01 

(LDXCOS 00 +200, .B6XLOXSTIN CX) +130) 
CAPXCOS CKX) +800,,86X19XSIN CX) +130) 
(27%C0S (X) +200, :B6X27XS IN CX) +130) 
(Z4%008 CO +200, , BéXEAXETN CX) +130) 
C4DXCOS (Ki +200, ,H6X4OXSIN CX) +130) 
CGASxCOS CX) +200, ,B6x4SXSTN CX) +130) 
x 

FOR X=4,71 TO 6. 
PSE 


1480 
1490 
1500 


28 STEF ,01 

FOCIODXCOS (XI +200, ,86X1O0OXSTN CX) +130) 

CLPRCOS CO) +200, , BéXIPXEIN CX) +130) 

7RCOS CXI+E00, 8462 7H IN CX) +130) 

CGR COS CX) +200, , BékT4xSTNCX) +130) 

C4 OKOOS CX) +200, ,86X40XSTN CX) +130) 
ë 209 ,,.86xX4SXSIN CX) +130) 


(1,1): COLOR Q,0:INFUT A# 
CN, CL:LINE(D,0)-(511,255),,P 


ÉÊLE SOUS-FROGRAMMES £LÉLFÉSLLEFEELELEELELE 


,511,0,255 
,10)- (501, 
10) (43 
10) (431,245) 
IE (447,10) (447,245) 
10070 LINE (463! 10)- (463,90) 
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10080 LINE (463,205)- (463,245) 
10090 LINE (431,50)-(463, 50) 

10100 LINE (479,205)-(479,245) 

10110 Veir:As4B VHILE Y<C=A:LINE (Y, 439) (V+80, 439) : LINE C(Y425, 
439) = (V+30, 439) 

10120 V=Y+35 

10130 WEND 

10140 LINE (431,35)-(436,35) 

10150 LINE (438,35)-(440,35) 

10160 LINE (442,35)-(447,35) 

10170 CIRCLE (439,35) ,4 

10180 CIRCLE (439,35),8 

10190 LINE (438,15)-(440,15) 

10200 LINE (435,25)-(443,25) 

LINE (438,15)-(435,25) 

LINE (440,15)-(443,25) 

LINE (482,209)-(498,209) 

240 LINE (482 ,210)-(498,210) 

10250 LINE (482,219)-(498,219) 

10260 LINE (482,218)-(498,218) 

10970 LINE (483,210)-(498,217) 

10280 LINE (482,210)-(498,210) 

10290 CIRCLE (483,284) ,3 

10300 CIRCLE (483,274) ,4 

10310 LINE (431,205)-(501,205) 

10220 LINE (447,90)-(463,90) 

10330 CALL "la" C"L.E.P, d'HENIN-BEAUMONT",435,55,1 ,1) 
10340 CALL"L1a" ("Echelle 1/1",450,11,1,1) 

10350 CALL"lLa"("Classe",435,207,1,1) 

10360 CALL "La" C'Nom",450,207,1,1) 

10370 CALL"1a"("Date",465,207,1,1) 

10380 LINE (501,122)-(511,122) 

19390 LINE (127,0)-(127,10) 

10400 LINE (255,0)-(255,10) 

10410 LINE (382,0)-(382,10) 

10420 CALL'LA"C"2" ,503,190,1,0) 

10430 CALL"'LA"(C"1" ,503,63,1,0) 

10440 CALL"LA"C" D",63,0,1,0) 

10450 CALL"LA"C"C",190,0,1,0) 

10460 CALL"LA"C"B",318,0,1,0) 

10470 CALL"LA" C"A",445,0,1,0) 

10480 LINE (255,0)-(245,10) :LINE (255,0)-(265,10):LINE (245,1 
0)-(255,5):LINE (255,5)-(265,10):LINE (255,10)-(255,15) 
10490 FOR A=0 TO 10 STEF 1 

10500 LINE (245+A,10-A/2)-(265-A,10-A/2) 

10510 NEXT A 

10520 LINE (10,10)-(501,245),,B 

10530 CALL "la" C'SPHERE",468,50,3,1) 

10540 RETURN 
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Programme : sphère d’attelage 
sur TT. 


Sphere # 50 


|_Ciasse 


Figure 3.4 
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Programme (T.T.) 


Figure 3.5 


on CINEUT AE 


TE 


neue de face vue de 4 


DK (1,1): INFUT 
43000: init 
42000: € 
EL, Li: INPUT 4% 


Lion 
véoueate 


de Lan pigeons, EFde,7 noire, SF 3 maire" 


TO 8000: NEXT 


:GOEUR 50000 


mél Less 


Fpal 18,115 ;pu: ":GOSUR 50000 
FRERE OEUE 5 50000 


18,88; pu; "M GOEUR 50000 


210 
00 
Len À 


o 107, pdpai08 107,108,82,59,8%;puispo;"it 


SUR 500 


20,88;pal 
TO 5000 : NEX 
105 


SPP NNRU PAGES 50000 


2 pal 08, M'GOCUR S0000 


M:SOSUR SO00QÛ 


SUR 50000 


LE 500 


E 50000 
23,115,118,115;pu;":GOGSUB 50000 


M'GOSUR 50000 
JB 0000 


SUR SOU 
AIRIS) 
50000 


LE Se Et 
pdsaso(, 


PUEDO , Lés; 1 


s000 


20 Ate"pui8é, 115,5, pdrpa: 


ALL ABE SO ILE pi GOEUR 66000 
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425 


430 


OK 


TO SONO:NEXT 


TEME= 1 
si léé:si.®, 


2:4i0,-1;1b6phere 0 S0O":GOSUE S0000 


440 TO BDOD:NEXT 
450) 140 ,pd57,108;pu;":GOEUB 50000 
455 TO SO00:NEXT 


é & 0) 
65 
47) 
480 


140, pAii8, 115; pu; ":GOEUR 50000 
TO SOON: NEXT 
n,pdléé,135;pu;":GOSUR 50000 
TO SOOÛ:NEXT 


FOR 


40) 120 ,p4110,108 ; pu; ":GOGSUR 50000 
300 ,RAI1e, 1 pu; ":GOSUR S0000 


510 AUS 
8000 :NEXT 
pdpali0,185,107, 1246; pu":GOSUR 50000 
.3:dil,0:1bE":GOSUB 50000 
“TO 8000: NEXT 
8,.2:4di0, ee 1bU":GOSUR 50000 
di0,1:1bV":GOSUR 50000 
1,2, ,3:dil re et 50000 
TO 8000: NEXT 
,8,.3:di0,-1:1bN":GOGUR 50000 
% F4i0 1: ts 0000 
< 3.dil O:1b46":G0SUP 50000 
TO 8000 :NEXT 
459,107; pu: ":GOSUR 50000 
9.83; pu: ":GOSUB 50000 
47, 3:pu; ":GOSUR 50000 
60 FOR TEMF#1 TO 8000:NEXT 
470 A$="puéé, 110, pdpaé? 


21,124;:pu;":GOGSUE 50000 


S +0 
30 
540) 


70 


580 


M4? , 107 6 


,107,48,110;:pu;:":GOSUR 50000 
680 148,80 ,pdoaé7,8%,46,80;pu;":GOGUR 50000 


ai, sAi0e 
TO 8000 NEXT 
O5 ,perUL, ve FRE ":GOSUR 50000 

3e ,pd110, pu; "'GOSUE 50000 

Se 75, pdt18, for PU ; “:GOSU 50000 

2 TO 8000: NEXT 

A#="pus], 108, pdpa90,50,97,60,97,44,110,46,110,50,118, S0 
GOSUR 50000 

à 197,980 ,pdpa97,54 110,5$4,110,50;:pu;":GOSUR 50000 
TEMF&L TO BOND:NEXT 

189 ,111,pdpa90,108,91,111;pu;":GOSUR 50000 

90,88, 89, 79: 4; :GOSUR 50000 

re .PdiOZ 46; pu; ":SOSUR 50000 

TO SOCQ:NEXT 

; 100,48; pu; ":GOSUR 50000 

DE ,48; pu; ":GOSUE °psoù 

Si,papai18, 30 LME ":GOSUR 50000 
5:#1.0,.3:4d4i0,-1;:160 26h8":GOSUR 50000 


L'IBME4 M GOSUR 50000 


760 FOR TE MF! 
260 Abe "pui00, 


800 À ri 
810 


END 


savtcietre 

CARTT 43 

LME 7 nUITe, sp "piune .3 noire" 

eee 0 27470 190; AOEUR 50000 

"HOGUR 50000 

1° AOSUE 50000 

UE. 50000 

re Je 000 
,180;pu;":SOSUR 50000 

ni HN Maoue 50000 

M; ":GOSUR 50000 


ie :1b0lasse":GOSUR 50000 

; dif nan ccée UE 50000 

: Le l te": BE 590000 
Échelle: 1/1" 


:GAOSUR SOON 
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FIL PC Abe "pur 4, LAS ei ES, AS, di0 LL; I1RL. EF. d'MENIN-PRERLIMON 


.195,p440,155;pu; ":GOSUR S9000 

1 TO 5000: REAT 

LeBrAtSs pie... ls : Pi ":HOSUR 50000 

165; 1 ‘145. pu; ":GOGUR 50000 

1 à 0 5000: NEXT 

Ke slt;eig;cil.5;pu0,0;":G0SUE 50000 


5000: NE XT 
d “pags 172, téip 34,5, 183,237 ne 
30000 


193,29 ,178,223 173;pu;i": 


FT "TITRE DU DESSIN 7".B# 
$ pull, 180; s81,7,1;: 410,1; 1R"4RSE: GOSUR 50000 
TURN 
À de La Etable 


"el se": CALL!'RI ci" 
OM : . 4800, 3 


0,160; pu0,0,pd0, 19 


i"CPNX, "ur" 1$, 
EMP=1 TO 1000: NEXT 
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Programme : 
butée fixe 
sur TT. 


La butée, extraite du dessin d'ensemble butée 
fixe est réalisée à partir d'un programme 
équivalent aux précédents en ce qui concerne 
l'entrée des données. 

La structure linéaire est composée d'un corps de 
programme auquel se rattachent des sous- 
programmes qui forment les éléments détermi- 
nants du tracé. 

Ces sous-programmes, détaillés au chapitre 4, 
constituent la trame de chaque dessin. 

Dans cet exemple figurent les deux méthodes de 
hachurage (tracé en continu et tracé point par 
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point) dont l'étude est faite au chapitre 2. Le 
choix de la méthode est lié à la configuration des 
contours limites de la zone hachurée. 

Pour des raisons de commodité de lecture, les 
définitions des fonctions qui interviennent pour 
le tracé des hachures point par point sont 
placées en début de programme. 

La représentation en perspective isométrique 
éclatée de la butée est utilisée à des fins 
pédagogiques: elle illustre la méthode de 
réalisations d'une coupe simple. 


Figure 3.6 


PROGRAMMES 


14H1/d10 F3 


TABLE de FRAISEUSE 


Vis CHc M10 30-26 


Ecrou de rainure XC38f 


Echelle 2:1 


BUTÉE FIXE 
Ensemble 
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gnation 
L.E.P. d'HENIN-BEAUMONT 


LTÉE. FLXE 


+ 

TS 

.N\RRl 

bal 7 .. 
[1 

Ce 

m4 

@ 

bal £ 
Le] 

Lu 


Figure 3.7 
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D 
et un 


“IUIN DE 


Emini 
Et 
12h10 
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Programme (T.T.) 
Figure 3.8 


1 ’ le 24 Juillet 19585 

10 ££L£EELLEEE FROGRAMME DE LA BUTEE SUR TABLE TRACANTE £££f 
££££ 

29 DEFINITION DES FONCTIONS 

30 DEF FNACX,Y)=19xY+11%xX-3535,5 

40 DEF FNB(X,Y'x46xy+3,5xx-903 

50 DEF FNCCX,V'x13,B86xv+8xX-2103,19 
6 DEF FND(X, V9, 64xV+5xX-1761,54 
79 DEF FNECX,Yi=2, 5xV+1,5xxX-354 

31) GOSUB 45000 :'INITT4S 

90 GOSUR 42000 :’CARTT4? 

190 GOSUR 40000 :'’NOMTT40) 

110 CURSOR (1,1) :INFUT A$ 

120 CLS 


180 PRINT, ss ossooorsioss ss "BUTEE FIXE" 


1éOT Laisse. 


“Mise en place des axes... 
150 A$="sp2;pu335,70;1t5;pd3z 25,128; pu335,168,pd335,235; pu" 
GOSUE 50000 

160 A$="p1260,175 pdréo 0,238 ;pu295,107,pd398, 107; pu;:":GOSUR 5 
9900 


18 1) ETS DOS TS Ce EN lon de acou AR ED ee me vue pe ne où me ane on os mont 

En A$="sp1;1t;pu29s,107,pd208,107:pus8s,107,pdsfs,107:puc0# 
RAS 107: puis, 104 ,pdpa303,107,304 ,104;pu387,97,pd387,1 

97: puiBé, 104, pr 387 107, 386 ,104:pu,": GOSUR S0000 

200 A$s "pu: si .5:4i1,0;:16A":GOSUR 50000 

C10 4$s"e UE .S:dii.0;1b0":GOSUP 59000 

280 AS "pu TD. 5i.3,.5;di1,0;:1bA-A":GOSUR 50000 


DID eee. Trace des formes fonctionnelles------ 
240 At="pu250,180 ,pdpa350,188,260,188.:puze0,188,p4310,188;pu 
285,188 ,pd235,188;pu;":GOSUR 50000 . k 

250 Af='spe;1t2,1;:pu350,82,pd250,132;pu;":GOSUR 50000 

40 FOR TEMF =1 TO 5SOOO0:NEXT us 
270 HARRIS PESpUSTE, 7e, DAS PE PER, puU276,194,pd4274,888;:puîïse, 
205,rd316,205;pu;":GOGSUR 50000 : 

280 Abz'"ep?;1+t2,1:pu279,208,pd2é1i,208;pu;":GOSUE 50000 


2PQ ‘mem. Trase des espaces libres de matiere--e-eee 


200 A$="spl;lt:pa32s,107;:ci19;pu;":GOCUR S0000 


310 A$="pazSé 205,pd254,228;pu3lé,209 ,pdtié,20% pu ":GOSUR 5 

9000 . du 

320 A$ = "ep2;1t2,1:pu279,205,pd279,228;pu241,226,pd241 ,205;pu;": GOSUE 5 
0000 

330 A$ = "it;splipa335,107;ci12;pu;" GOSUB 50000 


340 A “pa347,180 ,pd347,205;pu323,180;pd323,205;pu;":50000 , ’ 
350 A$ = "sp2;1tz,1;puz72,180,pd272,205;pu248,180 ,pd246,205;pu;": GOSUB 5 
0000 
360 FOR TEMP = 1 TO 8000: NEXT 
37/0 PRINT E=SS-RSSS-S SRE SES SSE SAN RSR SESSSSS Trace du volume de matie 
re de né O5 fn 6 den nn di dd de in de té née et di " 
CEE 2e8,pd319,228:p 


174 
454 


, 194 84 


.pagét 


P9 A$="pu250,160 5 4320,180 ;,pu8s,180 ,pd228,180;pu320,189.rd4 


no LO0: pe: HOUR 50000 

+50 É Na, LEE : PMS20, 135 64220; se: pu: “":socue 500090 
“20 spi: 1+; out40 .174,p4340,188;pu; *GOSUE. 50000 
+) ets, 1;rFut60 ,132,pd3é0 ,82;pu; “-GOSUE 50000 


à 20 a$=#spl : 15 pu34 6,82,p4376,92; AURTe 128  ,pd366,132;pu275,1 
04 ,pd275S,228; pu245, 194, pdz4s,228 ; pu; "BOSS 50000 

4640 A$e"spe; lite, 1; pu366, 194 .pd366, 228; pu; ":GOSUR 50000 

450 CUREOK (1,1): INFUT A$ 

440 GOSUE. 30000 :’ Trace des Hacfñures 

4709 CURSOR (1,1): INFUT A$ 

480 GOSUE 20000:'trace de la cotation 

(1.19 INFUT AS 

25000: trace de la rerspestive 

(LA 1): INFUT A 


+615 
RIRIR 
510 
LOC 
ee 


CÉLESLELEELE COUC-FROGRAMMES LÉSÉSRÉLELEEELELELLE 


a men Vence die Jon coton ti opus eee eee ee me 


.1t;pu%20,145.p4229,180:pu376,145,pd376,194;pu3 
.,150,pu250,158,p4250 ,180;cuz20,140,p4250,140;pus 
170;:pu228,149.5 _pdea280,150,222,190.5:put74, 149 
.5,pdpa 2150, 276,190. 5;pu;":GOSUR 50000 

20070 fé="puz®® 158,5, pdpa%20,140,222,160.,5;pu348,159.5,pdpa 
250,160,148,160.5:pu233,169.5,pdpa335,170,333,170.5;ou32£,1é6 
9,5, pdpas?0,170, 222,170. S:pu;“:GOSUP 50000 

20030 FOR TEMFz1 TO SOO0:NEXT 

0040 A$z"pur96,188 ,pd710,188:ru298,205,pd31ié,205;ruz00,188, 
b4300,205:püu299.9, 190, p4pa300,188,300,5,190;pu299,5,203,pdña 
3110, 205, 200.8, 207;pu;":GOSUE S0000 

20050 A$="pu323 , 2 205,p4323,217;:pu347,205,pd347,217;pu323,215, 
p4347,815;pu325,214.5,pdpa323,215,225,215.5;pu34s,214.8,pdpa 
347,215,345,215.5;pu;":GOSUE 50000 

20060 FOR TEMF =1 TO 2ZO00:NEXT 

20070 A$="pu316,228,pd316,240;pu354,228 ,pd3S4,240;pui1é,E£38, 
p4354,238;pu318,237.5 pdpa31é ,238, 318,238.5;pu352,237,.5 pdpa 
354, 238 352,238. S;pu;":GOSUR 50000 

20080 RETURN 

21000 ’ Trace des hachures de la rerspective 

21010 A$="5p2,":GOSUE 50000 

S1020 X1=177,14:X2=191:V1=86.S:V2=41,5 

21030 I#0 

21040 DEF FNFLIX,Y)=FANCCX, Y) 

21050 DEF FNFECX, Y'=FNACX, Y) 

21060 GOSUE 44000:’Trace des hachures 

21070 X1=172:X25177.14:V1=86,5:V2=43,5 

51060 1=1,75 

21090 DEF FNF1L(CX,Y)=FND CX, Y) 

21100 DEF FNF2CX, Y)=FNACX, Y) 

21110 GOSUR 44000 

21120 X1=168.5:X2=172:Y1=67:Y2=43,5 

21130 I=£ 

21140 DEF FNF1CX.,Y)=FNDCX, Y) 

21150 DEF FNFECX, Y)'=FNECX,Y) 

21140 GOSUR 44000 

H117N Xir146:X27168,5:Y1=67:Y2=40.5 

21190 153,5 

21150 DEF FNF1CX.Y)=FNE CX, Y) 

21200 DEF FNFE(CX,Y)=FNPCX, Y) 

21210 GOSUR 44000 

AETO X1=2147,5:X2-145:Y1=82,5:Y2=54 

21230 1=0 

TIT4N DEF FNF1LCX, VI æFNECX, Y) 

21250 DEF FNFECX, Y'ÆFNBCX, Y) 

1240 GOEUR 44000 


fr 
“ di 
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ALEP7O XIi=1T9: XEm140,S:Visp, S:VErér,s 
21290 IF 

It280 DEF FNFIL COX.) =FNDCX,w) 

300 DEF FNFICX VF NE CX, Vi 

21310 GS &4 000 

ais .85:X2=21239:v1=109,S:V2=42, 


{si 


340 DEF FNFLEIX ,YheF ND COX, Y5 
. 230 DEF FNFS LX VIE NA CX Vi 
SATEO GOEUR 44000 
1370 RETURN 
BROOO * ÉÉLÉLÉSÉLÉÉÉEEE Trace de la cerspective ÉLÉSLE 
ÊLLL 
29010 Agz"se 
2,478; 19 
En Lens 


Lipuiis, 224, 


sr gue Gonn. 0 ut 50e EE D ae 


181, 171, 146.154, 

d6: 5: past: GOSUR 50000 

5,161, ; a 

Snuléé 

GOGUE 50900 

ee di sr do LR Sas 
; 58 :spl:pu;":GOGUR 50000 

25050 R= 9. Xe2155 65: ve S:fle0:A2=548:PeS:LDe0 

29060 GOSUR 48000: Trace de l'ellipse 


29065 Rel9:XCm155,65:V0C2208: 160: A2-180:FeS:LD=0 

25067 GOSUR 48000:'Trace de l'ellivse 

BSOZQ Poe ne ne oo on men Tige dt lan de Orge ee nee ee ue ve nee 
Es080 Ate"spé:pulté, 2728 nAr20, nn 106,106,172,106,278:pu 
134,237.5,pdl 3,2934.9,139,5,215,5 ;:pui7?, RÉ EN MES 
149,8 ;pu;":GOSUR 50000 

25090 At="pu109, 268; dr-2;1,74;8i=.8,#-,%2;el-. 71: 1BPLANDE OU 
FES GGEUR 50000 

25100 EOR C1): INFUT A$ 


fai 


Trace des liaqnes de 


F4, S pdse. $ L45.cu 


PASIBPFAETIE À E 


1.1): INFUT À 
Ue04,5,179 ,pd4204,5,94,5;pu191,170,pd4191,76.5; 


5,pdi56,140;pu; ":GOSUR S 


25;:S11;:1RFARTIE À FROJ 


eme ge de Lan partie à pro jeter 


l:pu1i33.85,108,5,rd4155.5, a 204,953,204.83%,191,7 
1139,105 1e mal3z,85, ee pu: ":GOSUR SO00Û 
132,85,108,5,r4133.88,68, 162. 5.,63,5,142,5,56,1 
S.Sé.6. 148 79 139.62. 5,139. 105,5;pu; ":GOSUR 50000 
Se ,5,177,14,49,5,177.14,43,5, 
5,40.5,166,42.166,67,172,63.5,172,84.5; pu204 | 6 
.S:0u168.5,40,5,pd4175,5,44,5;:ru177, 14,43,5.pdi 
:GASUR 50000 
To # 0000" : 


. 
ndi7e,86,5;:pulñé,95,pd176,5,10 
» ! GOSUE 50000 


5 55,5:YC0294:A1=-45:A8-135:F=5:LD=0 

40 GOSUB A SUno race de l'ellipse 

70 Rel9:XC=155,5:V0273:01%45:42-135:F=5:LD=0 

5380 GOSUR 48000 

90 Relr:iXCe-155,5:Y0=273:A1=-45: 42-135: FaS:LDE0 

O0 GOSUR 48000 

85410 Rel?:X0=155,5:V0=48, 6: Alr45: A2-128: Fes: LD=0 

25420 GOSUR 48000 

25430 A$z"ou;":GOSUR 50000 

£ É 5 BND: ' Trace des hachures de la perspective 


SÉCÉCÉECELEEESE Trace des hachuves LÉLELÉELEÉLESELELELE 


20000 


JE 50000 
:COVe180:DVx#186:TIEe0 


22:0Ve#188:DVs205: 


UE & 1 000 
310: BX: 316 ,:QYe20S:DVeIEG: Ie0 


:OVe180:DY#1688:Te0 


:OVe1BR:DVelpéa Tes 


UB 41000 

AXmZ4 7: PXe376: CYe194:DV#POS : Ie 
SUB. 41000 

-BX=276: CVe205:DYr206: I=3 


UB. 41000 


CÉLÉLELELEÉE NOMENCLATURE AZ LÉSÉLLÉSELEELELECELE 


0 sous onto one 0e none 000 00e 0000 n00 008 00e F vo 4 vamme ñ [e) "m T ah LA [] eue mue s00 ste cause noue one se 006 ane o000 one ee c00e o00e en ane ose 


Fe de pieces reperees "OK 


3,40 ,pd,pr,0,"+STRE CM) 4" puis, MÉCTRE CM) +" 
+" puis, "+STRS M4" pdD, "ESTRE (M) +", pui00, "+6 
pd0, MARGTRE CMD 4" pusO, MEGTRE CM) 4" pad0, AGTRE CMD +": 
100 
4 TO Ral 
THEN fge"epi" ELSE A$="ep2":G0GUR 50000 
"4STRS C40+1%8) + "pd, pr190. 0: pu: *:COSUE 50100 
TO 9ON0:NEXT 


40090 NEXT 1 
40100 FOR TEMF=1 TO 10000: NEXT 


PROGRAMMES 


FA 


PROGRAMMES 


QG; 1bKeg ":GOSUR 50100 
(0 


SUR SO 


50100 


NT" CARE TER 
FA AARET No 


DU 


";M# 
1.04% 
RS CADH+TXB) AM, JRMAGTRA 
LD "+D# 1 


ts dt 
des hachuves en continu LÉÉLÉELESE 


RÉIMÉRRET 
A BX,CY ok OV  Cooordonmness di 


ner 1 
Puce) 
orme Lan valeur de LT {decal: 
faire GOSUR 41000 


V6 
41040 
4100 


des hachées er mm) 


41070 FOR H=AX+CY TO AX+CV+(BX-AX)+(DV-CV) STEP 5 
41080 A$s"pu;lt;":GOSUR 50000 
| Ù TO BX-F STEF F 


41110 


41140 = 
41150 Age "pat eETRE XL) HETRE CYLI 4 PAMHETRE (XD 4GTRE CYR) 
OSUB 5010n 
“ E 


Trace du cartouche AE LÉLÉRÉLERÉLLRLERE 


pro gamme CÉROTT de eo 


s" 


pie 7 moire 
03, 40, mé 


noire 
30000 


,813,0:pu 


213,40 


#00 
MXRIRENT) 


J,1b0lasse":GGSUR 50000 


PROGRAMMES 
:GOSUR 59900 


Tree DL 4 Sep 


LP Si"eETRE C, 7XC)SSTRE (CI +"; 4 


5 hachures (balayage vertical fÉLLE 


me Froaguamme  HACHTTUERT dép ee eee eeeeeeee 


momesbensetennesf programme DDPTTs-en seen de 


de XxX1,X2,Y1,YE 

% ! Léde ladé des hachures en mm) 
FNFL CX, VI =ENA XV) Cou Be, «4.0 
in FNFE CN, VieFNB CX, V3 Cou CG Dis 
SOSUE 44000 


x1 STEF -F 

25+I TO Yi STEP 5 
CX,%) 

F130 THEN Z=v:Yevi 


SRÉRFSS 


il 1 0 THEN VeY1:GOTS 44180 
AE RU MS TRE CXIHOTRS CV EU pate STRE CI +STRSE CV ANS 
50300 


HET 


THEN T0 

ETURN 

ÉCELÉÉLCELELERE Initialisation de la table LÉLÉLELLELE 
2 ae ue ae ao ane ae ce ae ae me ce ae [EE jrs C3 quamme TNLTT 4 eee ce es vos me co ve ane oo evo one ue ao ae ve 


se":CALL'p1 ei" 
:,4800,,,,,,1024" 


RU ET TE te 
.Q,0;pu; ":GOSUR 50000 


des cercles et arcs de cercles suv TT £É£ 
dote vs 9 Sons Se NS F ro Ca] vamme ñ F: (El F de LA e PRESSE RER SR PERRET RER EE 


F, 


KG, VE 


CR! 


,AE,F, 1 


LD ÉLDel si discontinu, ginon 


ARE, Lélé/180:FeîPes, Lélé 180: Ferxs 
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PROGRAMMES 


4& 100 
GOSUR 
48110 
48120 
48170 


50000 
ÉLEE 

50010 
30020 
50030 
50100 
30110 
50120 
30€00 
30210 
5020 
50300 
30310 
50320 
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AË="FAMESTRS CXL) +", MESTRSE CVL) +", FDM4STRE CKXEN +ETRE CYAN : 


50200 
TeT+LDXF 
NEXT T 
RETURN 


LÉLLÉÉELELSEREEELELE CALL "ei" 


CALL "oi" (PNX,"wu",6E%4,$,3,13) 


FOR TEMF«1 TO 1IODQO0:NEXT 
RETLIRN 

CALL Mai" CPNX ,"wu",8EX,A6,%,13) 
FOR TEMF=1 TO S:NEXT 

RETURN 

CALL Mer" CFNX, Mu, SEX, AY,3,13) 
FOR TEMF=#1 TO SOO:NEXT 
RETURN 

CALL Moi" CPNX, "w",68EX,A#,3,12) 
FOR TEMF=1 TO 1O0:NEXT 
RETURN 


ÉLLELELELELELERELRELLLLE 


Programme : 
vérin à vis 
sur T.T. 


Le programme de tracé du corps de vérin à vis 
utilise les affectations de variables en données 
DATA. 

Les données, placées ici en fin de programme, 
regroupent toutes les valeurs affectées à chaque 
variable de l'instruction READ. 

Une numérotation du tracé des formes donne un 
déroulement logique de représentation. 


PROGRAMMES 


La boucle FOR .… NEXT formulée ci-dessous, 
appelle onze fois (dans le cas présent) le sous- 
programme 47000 de tracé de segments 
représentatifs des formes fonctionnelles. 

229 FOR J=1TO11 

239 GOSUB 47000 

249 NEXT J 
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PROGRAMMES 


Figure 3.9 
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Ecrou de manoeuvre 


Vis- butee 
Cor 


PROGRAMMES 


___L.E.P. d'HENIN-BEAUMONT 


VIe LN HE, WLe 


Figure 3.10 


PROGRAMMES 


Programme (T.T.) 


Figure 3.11 


camme VERTMNQAUTETT LE 


DESSIN DE DEFINITION D'UNE PIECE sur 


"7 Noir 

TOUCHE FOLIE CON 
USE 

Fonations actu 


PC, RÉSENR ESC 
LEO GOSUR 4S000:!'TINITT4S 
10 GOSUR 434000 
LSO ÉÊÉÉ Trace de la piece CEXET4é ou GEGTT4?7 + AROTT48 LÉ£É 


sors he NEXT 

; PRALlE, 47; pu 

Ha 117;pu; ti 
x ï 


D, 47 puis, Dé 


10 


AUS 30000 
Fes 1 TO. 5000 : NEXT 

DE TO LT 

\ 4/000:! Trane de À,68,4.,4 5,6,7,8,9;: 1014 
7 

3000 : 


TO NEXT 


30000 


M'SOSUE 30000 


TEMF= 1 TO 9000. NEXT 
ss Mg pi: pa), 0: Me GOEUR S0000 
DRE TO 


47000: Truce de 


F1 TO SOOD:NEXT 
LEE MGQSUR S00OQ 
HOSUE 47 060 : Trace de Lé,17 


TO 3000: 


de 20,81 


T9 5000: 
Té 1000: 
Mi Q 


à GOSUR 472000 : 
S40 NEXT .J 
5509 FOR TEMF 
560 FOR TEMF 
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Trace de , ax 


TG SOOO:NEXT 
TO IQOU:NEXT 


1;:1t;":GOSUR 
TO: 6 
47000 : * 


50000 


000: NEXT 
:GOSUE 50000 
159 ,pd198,155," 
1 TO SBO00:NEXT 
lt: ":GOSUR 50000 
TO 4 
47000 : 


a OS UR 
NEXT J 
FOR TEMF=&1 TO 
700 Ate"pun7,Lé;s 
; É PAR M DORE 
1258, 60; 
LOC : 

20000: 


S000:NEXT 
Los AL EL 
de 5; di0, 


sd: 


Pa GOSUR 
00 END 


ÉEÉLLCEÉLSÉELSLELSLE SOUS 


10000 


MÉPÉPÉPÉLSEÉLEELCELEÉE Ta 


50000 


"GOGUR 


 FNFLUCX, V)&F NA CX, ") 
FNFE CX, VimFNEF CX, V) 
. 44000: Trace 

. à 28: ve 75 5 


:Vixé7: 


PNA CSS VF MA CX, Vi 


NE CX,V) 


F a4 de DO 


in120 O:XER100: 


10130 
10140 
LOLS50 


VamFNACX, Y) 
YF NR CK, v) 


IF FNELCX, Ve 
" FNFRCX Ve 


FNCCX,%) 
FNDCX, Y) 


FNFLCX, Vi 
FNF® OX, V3 


FNDX, %) 
mPNE CX, V) 


NA EX,Y) 
NB CX, Vi 


YPO: Vie 
NO CX ,v) 
"ND CX,V) 
ELPE TT 


TO SOOND:NEXT 
MiGQSUR 0000 


TO SOOO:NEXT 


Trace de 24,25, 


:AOSUE 


‘Trace de 30,301 ,31 


FROGRAMMES 


se des hachuves 


eg: Ylm7i: 


Vamé7: Visé: 


:VPm67: Vins: 


:Vasé7:Vimé0: 


VDe4Q:Yimta: 


ré 
ES 


30000 


LEA": GOSUR 50000 
LbAM: GOSUR 50000 
;,1PA-- HÉTEUAUE 30000 


secteur 1 


des rite 


F3 


secteur 


secteur 


Bee ten 


secteur 5 


4 


secteur 6 


Secteur & 


de La cotation en 40000 


8h plan de coupe) 


ÉÉELCELELLCÉLELELELELLEE 


CHACHTT44) LLLÉE 


CPLE 


PROGRAMMES 
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PROGRAMMES 


Trace de 1,58,3,4,5 


19% 15,,8;4dit,0;1b12":6O0SUR 50000 
TO SOOONEXT 

ë. 

Trace de 6,7,68,% 


2 20 1 10 
3 QE 
aÛ13Q 
20140 


,.2;d4i0,-1;:1b20":GOSUR 50000 
TO SONO: NEXT 
ml TO 5 

47000 :'Trace de 10,11,12,1%,14 


,PdRié,i1;puñié,18,5,pd820,18,5:":GOGUB 50 


FOR Jæl TO 7 

GOSUR 47000: Trace de 15,16,17,18,19,90,®1 

NEXT 

D AS="pu238,51,pd2é2,49.5;puñ3B, 69,5 pd24 48; ": COSU 50 


FOR TEMP&L TO SOOÛC:NEXT 
FOR Jæl TO 4 
[e 06 LE 47000:!Trace de 88,83 24 25 


Gog APE 


bé; ":GOSUR 50000 
Pan "RUE, 19;8i,15,.2;dil,0;:1b24":GOSUB 50000 


# | To ér 
47000 :'Trace de 246,27,28 29 


1,56;,51,158,.8;di0,-1;1BR13":GOGUB 50000 
EMFx1 TO SOOOG:NEXT 

Ate"pu0, 0; ":GOGUR 50000 

RETURN 


PÉFCÉFÉÉECÉLÉLELEZ Trace du cartouche LÉLÉCÉSÉCICSCECE 


‘Lvrace du 
43020 Frogramme CAF | | | 
4XOGO PRINT "'splieplume 7 noire, spéeeplume 5 noire 
4 3040 sf ; pi 140,0,p4d40,190; pu; ":GOSUE 30000 

& 3050 Es 1: 40, D, 40: pu; ":GOSUR 50000 
43040 ( ,PAB2, 190; pu; ":GOSUR 50000 

4 4070 40 ; BAG :GOGSUR 50000 


30000 
;":GOSUR 50000 


, 50000 


GOSUR S4000 


ain ,1BCla 


1/1": ROSUR S0000 
+ 3 

3170 
43180 AS="puz 


a 2 0000 


É TO : 2000 N LXT ne TD 
. Lélist 85,.28.,1BbL, EF d'HENIN-BEALMONT M OS 


pui": GOSUR S0000 


re 


DU DE 


"TITRE 
IN CE 

IF Nolé THEN Cx,7 
30 FL. "pus, MeSTRS CL 
LEO: LIRE: GOGUR 
P{) fi EUR N 


BIVRGTRE CO, PHOUAN MAETES CO) 
84 . 


CLLESELÉS 


da ÉLÉEL 


Frodgramme 


HAC HTT£ LT 


He À .) 
"9 
10 THEN Lex: kmxe 


CNEXT «enL 


RELFESEEFESEFEEEE Initialisation de la table € 


Q: FNXx) 


vg!": 


(ir 
,10® sa" 


8p1 ; sp0 1, 10900, 
Re 


0,190; pu0,0, pag, 19 


Trace de seaments en continua gun TT OLLÉLELE 


st DATA L 


CXAD +", HOTTE CVLD +0, PDUHOTRE CXED +4 MAGTRE 
DIRIAINIA 


Les] 


ÉÉDÉEEE CAL EMEA 


Léerte 


vai de 


PROGRAMMES 
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PROGRAMMES 


51050 DATA 1: 
51060 DATA 156,149,158,155 
51070 DATA L: 

51080 DATA & 

51090 DATA 1: 
51100 DATA 108,60,8®,60 

51110 DATA 1:° 

51180 DATA 182,34,188,467 

51130 DATA 1:° 

51140 DATA 188,129,182,155 

51150 DATA 1:° 

51160 DATA 205,34,205,60 

51170 DATA 1:° 

51180 DATA #05,129,205,155 

51190 DATA &:° 

51200 DATA 195,34,195,67,182,67 

DATA 1:’ 

DATA 195,129,195,155 

DATA 1: 

DATA 205,40,195,40 

51850 DATA 1: 

51260 DATA 182,40,160,40 

51270 DATA 1: 

51280 DATA 205,54,195,54 

51290 DATA 1: 

51300 DATA 182,54,160, 54 

51310 DATA 1:° 

51320 DATA 205,135,195,135 

51330 DATA 1:° 

51360 DATA 188,135,160,135 

51350 DATA 1:’ 

51360 DATA 205,149 ,195,149 

51370 DATA 1: 

51380 DATA 188,149,160,149 

51390 DATA 3:° 

51400 DATA 158,135,160,135,160,149,158,149 
51410 DATA 1:’ 

51420 DATA 160,3%4,160,93 

51430 DATA 1:’ 

51440 DATA 108,34,108,93 

51450 DATA 1:’ 

51460 DATA 88,34,88,93 

51470 DATA 1:° 

51480 DATA 158,34 ,182,34 
51490 DATA 1:° 
51500 DATA 195,34,205,%4 

51510 DATA %:° 

51520 DATA 228,60,228,75,198,93,158,93 
DATA 3:° 

DATA 158,179 ,228,199,288,155,158,155 
550 DATA 1:’ 

51560 DATA 108,75,88,75 

51570 DATA 4:° 

51580 DATA 108,34,108,93,88,93,8 
51590 DATA 1:’ 

51600 DATA 95,10,95,20 

51610 DATA 1:' 

51620 DATA 95,107,95,117 

51630 DATA 4:° 

51640 DATA 85,18,95,18,92,20,92,146,95,18 
51650 DATA 4 :° 

51660 DATA 85,109,95,109,98,111,98,107,95,109 


> 
es 
S 
F3 
GS 
tn 
HS 
Le | 


34,108 ,%4 
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PROGRAMMES 
ÉCFÉÉÉLECLÉÉLÉE Trace de La cotation,donnees DATA ££££ 


DATA 1:' 

DATA 1LE8,4,182,34 

DATA 1:’ 

DATA 195,12,195,34 

DATA 1: 

DATA 18#,17,195,17 

DATA &:° 

DATA 185,18,182,17,185,164 

DATA &:! 

DATA 198,18,195,17,192,16 

DATA 1: 

DATA 182,67,130,67 

DATA 1: 

DATA 135,67,135,47 

DATA &:! 

DATA 136,44 ,135,67,134,64 

DATA &:' 

DATA 136,50,135,47,134,50 

DATA 4:° 

DATA 221,15,2881,5,215,9,215,15,8281,15 

DATA 1: 

DATA 218,60,218,15 

DATA 1: 

DATA 221,10,182,10 

DATA &:’ 

1 DATA 219,57,218,60,217,57 
DATA &:! 

DATA 185,9,182,10,185,11 

DATA 1:’ 

DATA 218,60 ,244,60 

DATA 1: 

DATA 240,60,240,5€ 

DATA 4: 

DATA 243,52,2493,42,237,48,837,92,243,5€ 

DATA 1:’ 

DATA E43,47,2937,47 

DATA 3:° 

DATA 240,42,240,35,285,35,288,47 

DATA &:'’ 

DATA 241,57,240,60,239,57 

DATA &:° 

DATA 8846 ,44,225,47,284, 44 

DATA 1: 

DATA 158,34,158,18 

DATA 1: 

DATA 182,17,158,17 

DATA &:' 

DATA 179,146,182,17,179,18 

DATA &:! 

DATA 161,164,158,17,1461,18 

DATA 1: 

DATA 82,60,54,60 

DATA 1:! 

DATA 59,60,59,47 

DATA &:° 

1 DATA 40,57,59,60,58,57 
DATA &:! 

DATA 60,50,59,47,58,50 
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PROGRAMMES 


Programme : 
taraudage 
débouchant 


Le programme illustre la représentation d'un 
trou taraudé débouchant en deux vues dont 
une demi-coupe. 

Les dimensions de l’ensemble étant paramé- 
trées, le micro-ordinateur demande à l'utilisateur 
de choisir le diamètre nominal du trou taraudé. 
Dès que le choix est fait et en fonction de 
conditions limites et de certaines restrictions à 
l'intérieur de celles-ci, on aborde la représenta- 


84 


tion de la pièce dont l'encombrement et la mise 
en page sont en rapport avec le diamètre choisi. 
L'ordre de tracé, s'il est suivi par l'utilisateur, 
évite de commettre l'erreur de représentation qui 
consiste à arrêter le tracé des hachures sur le trait 
fin du taraudage. 

Deux exemples sont proposés pour permettre 
une appréciation des dimensions extrêmes. 


PROGRAMMES 


[__L.E.P. d'HENIN-BEAUMONT | 


TARAUDAGE Mi2ir 


Figure 3.12 
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PROGRAMMES 


Classe 


Date 


TARAUDAGE M36 


Figure 3.13 
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Programme (T.T.) 


Figure 3.14 


stiant", 4, 


ds cavtoueathee 


#,7 noire, GF 


160 
170 
180 


FR bi: 


of 


L OR Mz 
roma LES 


30000 :€ 


“hi 


mn 1; 
INEUIT 


oi] 


: TR (B+6% 
STR 


D+STRSE CP +", "+6 


cles 


LED Abe 
Q+A+ 


ALLEZ Fe 4% € 


TER € 


Van 


MARNE 


PROGRAMMES 
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PROGRAMMES 


RD 4": FD; AAUAETRS (à 
50000 
PA'4ETRE CET OeA) 4GT 


70 “hS CHR 4STRE CB cé et para STE 
MGOSUE SO0QQ0: CLS 


Brel less 


Re GTR CFO) ft 
1 AE ER RE D 2 LEE nu A 


‘4 Cé( 


DEL 


( 3% Ro +". 


TRS Ca CHR 4, à 
1000 


M Cd! FR} +ETRA SES BLUE TRSE (DE 
05). HALO els LEMMECS: GOSUR 50000 


des Machines er comÉ ira 


one ons vos ce [Es ve MES mme FH fi à H T T 4 EL vus ae v008 ones 00e anne ane 


{ me programme DDENT ou MACON T eépeeeee 


mt VE Cooordeonre AE] 


#5 LUE 
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PROGRAMMES 


arr Om: 


41090 
41100 
DRE 


v<vi 


THEN LAC) 


AY +" pates fi 


mbyagues ir cavteigehe  Âléee ue nee nee ae es nee ae ae a a on 


43010 ? ee FO gamme CAT T de one 


3 noire" 
5 0000 


0900 
50000 


AE "Tr 
FOR 
ait, ms LRO asse tt 


SUR S0000 


LL GOGUR  S000N 


FOR TEMF& 1 TO 2000 :NEXT 
Abetpusé LES; si CS IBLE SF d'MENTM-BEALMONT" : GGGL 


E 50000 


BB: LES 


a 


500 


S,ou; 'GAOSUR 30000 


T 0 5000 : NE X° éd 
A$="past, 173 ,pd3é4,5,1893,37,5,193,39,17%, 2% 
1000 
INPUT TITRE GU DESSIN "CBS 
NELEN CR 
Né THEN 


FR CLLS+ENX CO 
FL b"+ LE $:GOSUR 50000 

S ETURN 
PÉRSESERE 


181 "STRE C, 7RO) EME TEUSE (CC) 


de Lan Table LÉLELES 


Êf 


ÉÉ Initialisation 


gamme TNITT4S 


45040 
ue ALL." 


OALEL US 
"en ‘ ne" , 
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PROGRAMMES 


Programme : 
intersection 
cylindre/plan 
sur T,T. 


Après un appel de données (diamètre du 
cylindre et inclinaison du plan), le traceur 
représente le cylindre de révolution sous trois 
vues avec mise en page automatique. 

Il met en place le tracé du plan en vue de face et 
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détermine le contour de l'intersection en vue de 
dessus. Le calcul point par point permet de 
visualiser la construction d'un point quelconque 
de la courbe et de faire acquérir la méthode de 
tracé de chacun des points de l'intersection. 


PROGRAMMES 


Figure 3.15 
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PROGRAMMES 


Figure 3.16 
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PROGRAMMES 


Programme (T.T.) 
Figure 3.17 


1 ' le 2é Juillet 1985 
LÉRELÉLEREEEESÉLELE Frogramme INTOFTT LÉLELLELEILECELELEE 


DO 'ÉFÉEECEFEESESEEEE INTERSECTION CYLINDRE-FLAN £££EEEESESE 
LEE 
50 GOSUE 


45000: INITT4S 

ÉINT:EFRINT "SFief,7 Noir SFR", EX Noir " 

OR (1,1): INPUT A 

1000 :'Entree des donnees 

2000:'Trace des axes 

"#1 TO SOOO:NEXT 

“:GOSUR 50000 

Trace du avlindre en esquisse 

3000 :NEXT 

QE JC ae du plan-ineline en esquisse 

FOR TEMF SOON :NEXT 

GOSUR 5 J''Trace de l'intersection 

fA$e"spl; ":GOSUR 50000 

MOSUR 3000:°7T du GVlindre. Mise au net 

AOSUR 4000: °7Tr s du plan inoline. Mise au net 

FOR TEMPS 1e SOOO:NEXT 

À "Voulez vous 1a constrietion d'un point 
re, Fébas Y COUT) ou N  CNOND "RE 

QD IF RGe"VU THEN GOSUR 6000!’ Construction d'un point 

900 ENE 
1900 ÉCÉÉERCÉRESESEREEEE Entree des donnees RÉLSÉÉÉLÉELÉELEEE 
1910 ELS:FRINT:INFUT "Donner Le rayon du cylindre (R<Cx40); K 


l'E 


O FRINT:INFUT "Donner l'angle d'inclinaison du plan en de 
(D<A<x60); Az "A 


AsAxz, 1416/1680 
IF KRo40 THEN FRINT:FRINT "Verifiez vos donnees !":GOTO 10 


1050 IF A) 60 THEN FRINT:FRINT "Verifiez vos donnees ":GOTO 10 
00 

1060 RETURN 

ÉLÉLESSÉSELELELEES Trace des axes PÉLSELCELELESELELELLES 


CR74-MEPX) /3 

MEFY:4x fx 

ITY= (LOO-MEFY) /3 

AXSITXHR I BRXEREXTTXHIXRESOTH/E 

CVETTY RIDER EUXTTV4+RXR 

2080 FOR TEMF«1 TO SOOOD:NEXT 

2060 Ate"spe; LES; pu+STRSE CAX) +,5,pA"4STRE CAX) +",185; pu; ":6GO 
50000 

SLO0 ASE "pue TRE CBX) +0,58, PAM+S TRE CPX) 4,185; pu; ":GOSUR 5000 
) 

110 AS "pus, MASTRECCVI 4" paré, MEGTRSE CCY) +"; pu; ":GOSUR 5000 


AE MUR GTR CHRROD 4STRE (DVI 4, pARéS, MASTRSE DV) 45 pu; "GO 
100 


RO OTEMF&1 TO SOOOD:NEXT 
140 RETURN 
ÉLLÉÉCLÉEEÉESELÉEE Trace du cylindre RESÉÉSÉELEELÉEELEÉ 


2005 FOR TEMFæ1 TO SOON:NEXT 
2010 Abe "LE: putes TRE CAXI+STRS COYDEM, CTAÆSTRE CRD +"; pu; GOGUR 
30000 
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OO: NEXT 

H/E) +STRS COV-R) +", pdpa "+STERS (BX-H/E-E20) 
& 20) +6TRS CC HR, pa t+STRSE CPXHH 
900 


XOLS FOR TEMFæel TO à 
O0 ASE "pa t+ETERE EX 
HSTRSE CCV- RU part STRS EX-H 
LED +ETRSE CON +R +5 pu; GOSUPR 
3025 FOR TEMF TO SOODOD:NEXT 
ÉOSO Age "prit 4 TRE CBX) +ETRE CDR EU pdpa METRE CBX-H/E- LEO) 4+STR 
HEDV-RU 4 pa 


+HSTRE CBX-H/2- 20) +GTRE DV HERO 4, pa STRE CRXI HOTTES 
ÉDV4+RD +": pu0, 0; ":GOGUE 50000 

3040 RETURN 

4007 *LLEÉCEECÉSÉELÉELSEES Trace du plan ineline LÉLÉFÉEFÉELEE 
LCLE 
4NDR FOR TEMF&1 TO SOOO:NEXT 

4003 A$e"pu0,0,":GOSUR 5000 

#005 X1=0:V1#0 

&Q10 FOR X2r0 TO H STEF H 

4Q80 TAN (A) 

4030 te "pu teSTRE CBX-H/THXI)HOTRE COV-RAEVID EU, PRAMASTERSE CBX-H/E 
BY+STRE CCV-R+VE) 4" pu; GOSUR 50000 

X1=X2:Yiseve 

4035 NEXT X2 

4040 EGK TEMF:=1 TO SOOO:NEXT 

4050 RETURN 


ÉÉSÉSSESELES Trace de l'intersection FÉÉFÉLÉILÉELE 


et TO SOND:NEXT 
:GOSUR 50000 
TO SOOO:NEXT 


5050 FOR Tel TO 365 STEP 5 
5060 X2=RXCOS (TXE, 1416/180) : VESRXSIN (TX. 1416/180) 


5090 Ê MDUM+ETRE CEXAXLL) HSTRE (DV4V11) +", pdM+STRS (BX+X12) #ST 
RE CDY+VLE) +" pu; ":GOSUR 50100 

100 X11eX12:V11eViE 

3110 NEXT T : 

5120 RETURN 

6000 ERSÉSÉLECELSELSELEEE Construction d'un point FÉFÉÉESELEEÉ 


FRINT "SFr, 3 Vert :SFRsF,Z Noir " 
CL,1) : INPUT À# 

4 TO SOODO:NEXT 

EU A4OSTRS CAX+R4R) HOTRE COV4T) + TRAMS GOSUR SON00 
el LE SOO0:NEXT 

"sit von point sur le cercle compris 
a partir de À MM 


SOC Ati Eu LETTRE CAXEXED HGTRE CCY+VE) +" pd; CIE; M'COSUR 50000 
6080 FOR TEMF&1 TO SOND:NEXT 
4095 A$:"Sp2;: pu0,0;":GOSUR 50000 
6100 APE 'pUMESTRE CAX-R) +STRS CDY +R EU PRAMESTRS CAXHRI+STRSE CDY- 
:GOSUE 50000 
T: “#1 TO SOQO:NEXT 
ON AOIRS RER SS TRE ONENERRES PAMHSTRSE CAX4KE) +OTRE 
: GOSUR 50000 
FE CAXH+KED 4OTRE CDY-XE) 4" pAM+OTRE CBX+HIL4+LO) EST 
; "I GOSUR 50000 
TO S000:MEXT 
; D+STRE COV EVE) 4 PAM+STRE (BX+HHL)+STRE C 
5 59000 

FE CBX 4H) +GSTRE COV4VE) 4 PAMHSTRE CPX+H1) +STRS ( 
Fu0,0;":GOSUR 50000 


DY-XRI +", 
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6170 FIX=AX+X2:FIV=CY+YE4+ CDY-X2-CY-Y2) /E 

4180 FEXeBX+H1L:FEVeF1Y 

6190 FEXEAX4+XE+ CBX+HI-AX-X2) /2:FA3YESDV-XE 

4200 F4X=F3X:F4aVeQv+vE 

6210 FOR TEMFæ1 TO SOOO:NEXT 

6220 Az "pU"ESTRE CFLX-L) +STRE(F1Y-3) +", pdpa"+STRSE (FIX) +STRE ( 
FILY)+" pa"+STRS CFIX+1)+STRS(FIY-3) +"; pu; ":GOSUR 50000 

6220 A$="pu"eGTRE CFEX-L)4STRECFEY-2) 4", pApa"+STRSE CFEX) +STRE € 
Fev" pa'+STRE CFEX+AL)4STRE CFAY-3) +"; pu; :GOSUR 50000 

6840 A$= "put aSTRECFEX-I) 4GSTRE CF3Y41) 4", pdpaMeSTRE CFEXNIHCTRE € 
F3V)+" pa"+STRS CFEX-H) +STRECFAV-1) +"; pu; GOSUR 30000 

4250 Az "pu t+STRS (FAX TH) +STRE CFA V4 L) 4, pdpat+STRE (F4 x) +STRSE € 
F4 V4" pa+STRS CFAX-2) +STRE CF4V-1) 4"; pu; :GOSUR 50000 

6260 FOR TEMFxæ1 TO SOOO:NEXT 

4870 Aa" pUM+ESTRE CAXHXE-O) HGTRE CCY+VEE+ CDY-XE-CY-VE) VE) 4 pd; 
aAi0:;1; 15,.8;1lbsens 1":GOSUR 50000 

4290 Az "pu "+STRE CAX4+XE+ CBXHHI-AX-XEI) / 2) +STRE CDV-XEH+E) 4", pd; 
dit,0;1bsens 1":GOSUR 50000 

6290 Abe "pu"rETRE CAX+XE+ CBX+HI-AX-XE) 8) +GTRE COV4YEHE) 40, pd; 
lbsens 2":GOSUR 51000 

6300 Abe MU ÆETRE CPX+HIL-P)4GTRE COV4YEE (DYV-XB-OV-V A) 8) + pd; 
Ai0,1;1bsens £":GOSUR 50000 

AIO A$e"pu0,0;8p0; ":GOSUR 50000 

4320 RETURN 

45000 ?ELÉÉÉLEELÉESELELE Initialisation de la table LÉFÉLEEE 
LEE 

45010 Frogramme INITT45 

45080 EXe0:FPN4#( 

45020 CALL'RI ve": CALL'PI set: CALLIPI ci" 

45040 CALL "rs": CALL "Se com:,4800,,,,,,1084" 

45050 CALL'"'ei"(0, "o",8E2) 

45060 A$="in;spl;1ip0,0,10900,7680; 820,274, 0,190; pu0,0,pda0,1® 
0,874,190,274,0,0,0;pu; ":GOSUR 50000 

45070 RETURN 

49900 ! FÉRÉLESELESÉLELERERE Call Moi" LÉLÉECELLEEEEEEECELEELCE 
FELE 
50000 CALL"'oi"CFNX, "ut 6EX,A€,3,13) 
30010 FOR TEMFæ=l TO LOQO0U:NEXT 

50020 RETURN 

30100 CALL. Mai "CPNX, "UM 6EX,A$,3,123) 
50110 FOR TEMF#1 TO 100:NEXT 

H01€0 RETURN 
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Programme : 


tableau dimensionnel 


des vis 


tracé des vis H, Q, CHc 


Le but de ce programme est d'obtenir la 
représentation des vis classiques dont les 
dimensions sont imposées par un tableau à 
double entrée fonction des diamètres et des 
longueurs normalisées. 

Le tableau regroupant les caractéristiques 
normalisées des vis est composé de quatre 
fichiers représentés ci-dessous. 


b(j) 


a$(/) 


(210) 


— Le fichier a$ (i) unicolonne, à cinq variables 
alphanumériques P, À, B, C, K, donne les 
caractéristiques des têtes de vis. 

— Le fichier a(ÿ) unicolonne, à 34 variables 
numériques de 12 à 250, donne les longueurs de 
tige normalisées L. 

— Le fichier b(;) uniligne, à 18 variables 
numériques de 2,5 à 36, donne les diamètres 
normalisés D. 


— Le fichier c(j j), composé de 39 lignes et 18 
colonnes, regroupe : 


par colonne, les valeurs du pas P, de la clé 
(surplats) À, de la hauteur de tête B, du 
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diamètre de tête C, de la clé de l'empreinte 
hexagonale K et des longueurs filetées X en 
fonction des longueurs de tige L. 


Le tableau s'utilise de la manière suivante : 


Soient un diamètre D = 16, une longueur de tige 
L = 100 et une forme de tête CHc. 

Pour caractériser cette vis, il nous faut connaître 
P et les cotes À, B, C, K. 

Les valeurs 16 et 100 déterminent les indices (;) 
et (/) des fichiers a(;) et b(j). 

Pour cela l'ordinateur compare le contenu de la 
première case du fichier a(/) avec la valeur L 
introduite. Si ce contenu ne correspond pas avec 
la valeur donnée, il passe à la case suivante et ce, 
jusqu'à la case 22. (j = 22) : la longueur 100 
correspond à la vingt-deuxième case. 

Il procède de la même manière pour l'indice ; du 
fichier b(;) des diamètres normalisés (j = 10 : le 
diamètre 16 correspond à la dixième case). 

La recherche des autres dimensions ve se faire 
par application des équations suivantes : 


0 ne 


$(2)=A=c(2./) 
$ (3) = 8 = C(3. j) 
$(4)=C=c(4 
$ (95) = «= = C(5, j) 

= C(Z j) 

Dans l'exemple choisi, / = 22; j = 10 soient 
P=c(1,10) = 2: valeur du pas 
A=c(2,10) = 24: valeur de la clé 
B=c(3, 10) = 10 : hauteur de tête 
C=c(4, 10) = 24 : diamètre de tête 
K=c(5, 10) = 14 : largeur de l'empreinte 
X = c(22, 10) = 38 : longueur filetée. 


Les valeurs P, À, B,C,K.Xetles dimensions D et 
L'introduites permettent le tracé de la vis choisie, 
à partir de trois sous-programmes correspon- 
dant aux formes H-CHc et Q. 


PROGRAMMES 


TABLEAU DIMENSIONNEL DES VIS 


Figure 3.18 


[32 


o fie fu fa 


LONGUEUR FILETEE X 


es 
910: 


ii 


156 | Pa its 
+ ne 
Æ el 


ONE 
fe 


0 


TT TE 
D 66 T2 (78 64 
o lo re 97 
Nr 


ONCA 
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Figure 3.19 


Vie. Cac M 24% 


Figure 3.20 
98 


Vide: Hi GS AAC OA 


Figure 3.21 


Programme (T.T.) 


Figure 3.22 
des 


vamme DE 


La Lable 
Lonnemert dés Mis 
Lean dimens iormmet! 


vous le La 


70 
s du tableau 
CÉRINT "EF IE" 
LL: INPUT 
DO: Choix de La 
LO0 GOSUR 26000: Controle des 4 
LAN FRINT "ME or de feuille" 


ec NON 


J tata de vis 
sovpe de la vis 
XT 
LSipd;si.7,1;:1bVIS M4+FTEEN MUESTRSE CD) HU U4CTRSE 
‘4 CX) :GOSUR 50000 
omernts de cotation 
“Autre Erace, taper Vi DA à 
YU THEN GOTO 90 


180 A$«"r 
(ONE RENE 


220 END 
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19900 ? FÉCÉFLÉLCCLSELCELCESELLEE SOUS-FROGRAMMES £LÉECLELÉECELEESES 

£LLE 

“0000 LÉCLÉLÉLÉELÉLELÉS Trace du tableau sur 

LELL 

20010 CLS:FRINT:FRINT "SFlisF, 4 Noir SFR 

2000 Abe!"s “:GOSUR 50000 

20070 FOR LOTO 41 

BOD4C AE "pu +ETRE CRT) 4,0, PAMAHGSTRE CRT) +" LEO pu; ":GOGUR 5 

QÙ00:' Trace horizontal 

20059 FOR TEMF=1 TO 1LOOO0:NEXT 

20060 NEXT I 

FOR TEMFæ1 TO SOOD:NEXT 

FOR Jæl TO 18 

20090 Abe pu), MÆGTRSE C9, 5x4" padrDé, MESTRE CS, EX) 4 "pue Lt 0, "4 

STRS C9, 5x) +" pdBéé, MRGTRE CO, 5x4" pui" :GAOSUR 50000: Trace 

vertical 

20100 FOR TEMFæ1 TO 1000:NEXT 

20110 NEXT 4 

SOLEOD A$s"pusgé, 171,pd810,171;pu;":GOSUR 50000 

20130 A$e!"spl;purs7,177; dif,-1;s1,4,,7;1IbBTABLEALU DIMENSITONNE 

L DES VIS":GOSUR 50000 

20140 FOR TEMF&1 TO SOND:NEXT 

E0150 Abe"sps, ":GOSUR 50000 

20160 FOR TEMF=eL TO SOOUO:NEXT 

E0170 FOR #1 TO 7O00:NEXT 

20180 FOR TG 18 

SOLEO Az LR SERECLS 0. Se ES MO etre AS CO L'EST 

NACIOPRE GOSUR 50000: nie DN 

2000 FOR TEMF:=1 TO 1OON:NEXT 

NEXT 

FOR TEMF:=1 TO SONO:NEXT 

FOR Tel TO 5 

PR AE RE RER CE RAR Re EEE Res 
: i variables 

TO 1000: NEXT 


2 


FOR TE 
NEXT T 
FOR TEMF&1 TO SONOD:NEXT 
FOR Izé TO 2x9 
Val: !Tab! : 
A As t"puit+s . 6XT-6XY)+",185; di0,-1:81,15,,2;1b"4ST 
R# CAC): GOSUP 50000: vritore L 
0310 FOR TEMF:1 TG 1OO0:NEXT 
2030 NEXT T 
6 30 FOR TEMFz1 TO 2000: NEXT 
1340 nude 1 ; 
350 Az" vire 
20360 A$="ou204 1 
SUR 59000 
3707 FOR TEMF:1 TO SNOO:NEXT 

80 OS UE Dimensions a eviter 

SE HOUR SOOOD FOR TEMF:æ1 TO LSOODO:NEXT 
3% 
= TO 168 
PET THEN 


BIRD GOSUR 50000 
LEL OS GOSUE S0000 
BLONGUEUR FILETEE XX": GQ 


TO SOD'NEX 


100 ÉRÉLÉERELRELRECE Dimensions a eviter 
Ê 
; 10 À 
21080 FOR TE 
21030 FOR 
21040 Vel 


100 


; ":ROSUR “0000 
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TÉXT-6%V) 40,185; di0,-1;:si,15 +2;1b( 


s 
1070 FOR TEMF=1 TO 5G0O0:NEXT 

21080 FOR J#9 TO 17 STEF © 

21090 A$="pur4n, "#STRE (180. 5-9. 5xJ)4m. d4 

me À + 0.5-9,5xJ)+";4i0,-1;5i.15,.2.1bC 0 


21100 NEXT J 

21110 FOR TEMF=1 TO SOOO:NEXT 

21180 A$="pur48,105;di0,-1,81.15,.2;1bEviter l'emploi des va 
leurs entre parentheses":GOSUR 50000 

21130 FOR TEMF=1 TO SOOO:NEXT 

21140 RETURN 

25000 ?’ SÉFÉSÉEFEELLELLEE Elements de cotation £ÉLLSLLPELELEEE 

£LL£E 

25010 FOR TEMF=1 TO SOOO0:NEXT 

25020 A$="sp?;pu0,0;":GOSUE 50000 

25030 A$="pu"+STRS (BX-L4+X/2) +STR$ (90-D/2-10)+",pd"4+STRE BXL 
+X/2) +STR$ (90+D/2+30) +"; pu; ":GOSUR 50000 

25040 A$="pu"+STRE (BX-L+X/2-1,5)+STR#E(90-D/2-5)+",pd"+STR# (CE 
X—L+X/2)4+STRS (90-D/2) +STR$ CBX-L+X/24+1,5)+STR$ (90- D72-5)+0.p 1 

“":GOSUE 50000 

25050 A$="pu"+STRS (BX-L+X/2- 1,5) +STRS(90+D/2+5)+",pd+STRSE CE 

X-L+X/2)+STRS (90+D/2) +STRSE CPX-L4+X/24+1,5)+STRS$S (PO+D/2+5) +"; pu 
":50OSUE 50000 

25060 A$="pu"+STRE (BX-L4+X/2-2) +STR#E(O0D4+D/2+15)+";d10,1;si.8, 
4: IbM "4STRS (D) :GOSUR 50000 

25070 FOR TEMF=1 TO SOOD:NEXT 

25080 A$="pu"+STRE (BX-L)+STRSE(O0-D/2-40) +", pdM4+STRSE CEX-L) 4ST 

R$ (90-D/2+,6xF) +"; pPU"4STRSE (BX-L+X)+STRSE CPO-D/2-29) +", PAT+STR 

BCPBX-L+X) +STRE(90-D/2) : GOSUE 50000 

25090 A="pU"4STRSE CPX-L) +STRS (PO0-D/2-20) +", RAMISTRE CEX-L EX) + 

STRS$(90-D/2-20)+";pu;":GOSUE 50000 

25100 A$="pu"+STRS (EX-L+5)+STRS$ (90-D/2-18,5)+", P4'+STRE BXL 

J4STRS (00-D/2-20) +STRS (BX-L+5)+STR#(S0-D/2-21,5)+"; pu": GOSUR 
50000 

25110 A$="pu"+OTRSE (PX-L+X-5)+STRS(90-D/2-18,.5)+",pAd+STRS# (PX 

LR) ESTRSE (90-D/2-20) +STRECPX-LEX-5) 4+STRE C90-D/2-21,5) +"; pu; 
“:50SUE 59000 

25120 A$z"spe,":GOSUE 50000 

120 A$="pu"+STRE (BX-L+X/2-8) +STRE(90-D/2-18)+";dil,0;si.£ 
4; 1B"+STRSE CX) : GOSUR 50000 

25140 FOR TEMF=1 TO SOOO:NEXT 

25150 A$="pu"4+STRS (BX)+STRE(90-D/2-40) +", pAM+STRE (PK) +STRE CS 

O-D/2)+":pu;":GOSUR 50000 

25160 A$="pu"+STRSE CBX-L)+STRS(90-D/2-35) +", pPAM+STRE CBXI+STRE 
(80-D/2-35)+";pu;":GOSUR 50000 

25170 A$="pu"+STRS (BX-L+5)+STRS$(90-D/2-33,5)+",pd'+STRE CPBX-L 
D4STRS (O0-D/2-35) +STRE CBX-L4SI+STRE CP0D-D/2-36,5) +"; pu; ":GOGU 

E 50900 

25180 A$="pu"+STRS (BX-5) +STR#CPO0-D/2-33,5) +", DARRETRENERPEST 

R$(90-D/2-35)+STRS# CPBX-52 +STRECPO-D/E- 36.5)+";pu; ":GOSUE 5000 

(a) 

25190 Age "pu"+STRSE (BX-L/E-5) +STRE(C90-D/2-35)+";d10,0;si.8,.4 

 IEUESTRSE CL) :SOSUR 50000 

200 5 TURN 

Ë ÉLÉCÉCELELESEE Controle des dimensions ÉÉLFÉLELÉEE 


Q THEN FRINT "Uerifiez vos donnees, Xe0":CURSOR C1 
T AB:AOTO 40 
ET THEN GOSUR 27000 


TO 39 
æl. THEN Cle 
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26070 IF CLC1 THEN FRINT "Verifiez vos donnees L non normal 

isee":QOURSOR C1, 1): INPUT A$:GOTO 410 

24080 FOR Jel TO 18 

6090 IF BCDen THEN Caml 

SétOi NEXT J 

S6LIO IF CECA THEN FRINT "Verifiez vos donnees D non normal 
188": QOURSOR CL, 193: INFUIT A$:GOTO 40 

él MEFeû+L. +R 

SéLGO IF MEF 74 THEN FRINT "Dimension Evop importante pro 
Le format M CURSGOR CL, A9: INPUT A: GOTO 4f 

Sélé RETURN 

27000 ÉFERÉRESELCERELELÉLEELERE Controle CHe £££ 


LÉLEEE 


27010 IF Ce0 THEN FRINT "Verifiez vos donnees, Cent OUIREOR CL 
4. L'''INPUT AE: GOTG 40 

ue RETURN 
CÉFSESÉSE 


U Ohoik de La tete de vis LRÉLÉÉÉLERE 


3ONO00 ÉÉÉEÉE 
f 


ÊE 
OO ] #"QU THEN GOGUR 1000 
3000 eNCHEU THEN GOSUR 32000 
40030 tF FT MHUOTHEN GOSUR 3000 
30040 FETURN 

SLOOOD *ÉERFÉCECÉEEÉELÉSEE Trace de La tete "MO" LÉLÉRÉLELELÉEE 
: f 


0 Aa"; spl; 
AX- due =) +5 TR# (90 A 


's TRE B x) - TRE COQ AE AN pe TRE CRX +R) +ETRE (GO 
L'FSTREKEXIESTRECPOA/ED 4", pd +STREBXEBX ES TRE CPDEA 
: HOSUR 30000 


RÉÉÉRLRERELÉS Trace de la tete CMe LÉLÉLELCEOLÉS 


TO ALSOOC:NEXT 
3 FUMA4STES CAXD +ETRSE (PO) 4U FD: OIMACTRE CC 


UE 50000 

HCHD4C/8) 4" pdpa"sGTRE (CBXHOXD/10) + 
X+PD/ 10) 4STRE (POHC/DD/10) 4GTRE C9 
"C/2+D/10) +", aa"4STRS (EX+FXD/10) + 
; :GOSUR 50000 
AURGTRSE (BI) HETRE (90 0/2) 4", pa+OTRE(PX)4ETRE (00 
SUB 50000 
TO BOND: NEXT 
1416/6) 
K1/5: A1=00 : AB450 :Firé60:LD=0 


TO SOOO:NEXT 

2,1; pu"+ETKRSE CP 

+STRS (SO4 4/2) #STR 
LL 


EL 
K1 


Rs, (P0+k 


1r4)+n; purs 
0e KL 4) +4" 5 pu; 


EÉÉEELESSESREEE Trace de la tete MH € 


“A e"]lt; spl; ":GOSUR 50000 
33020 FOR TEMPF&1l TO SOOUO:NEXT 
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33030 LA=A/C0S(3.1416/6) 

33040 FOR TEMF=1 TO 10000:NEXT 

33050 FOR TEMF=1 TO 5000:NEXT 

33060 XC=AX: YC=90:R=LA/2:A1=90:A2=450:F1=60 : LD=0 

33070 GOSUB 48000 

33080 ‘FOR TEMF=1 TO 10000:NEXT 

33090 X3=SQR((A/4)42- (A/B) A2) 

33100 A$="pu"+STRS CAX) 4+STRS (90)+",pd;CI"4+STRS (A/2)+";pu;": GO 
SUB 50000 

33110 FOR TEMF=1 TO SOOO:NEXT 

33120 A$="sp1;pu0,0;":GOSUB 50000 

33130 A$="pu"4+STRS (EX+B-A/4+X3) +STR$ (90+LA/2) +", pdpa"+STRS$ CE. 
X) +STRS (P0+LA/2) +STRS$ (EX) +STRS (90-LA/2) +STR$ (BX+P-A/4+X3) +ST 
R$(90-LA/2)+";pu;":GOSUE 50000 

33140 FOR TEMF=1 TO 2000:NEXT 

33150 A$="pu"+STRS (BX) +STRS (PO+LA/4) +", pd"+STRS (EX+B-A/44+X3) 
+STRS COO+LA/4) +": pu"+STRS (EX) +STRS (90-LA/4)+",pd"+STRS (EX+E- 
A/44X3)+STR (90-LA/4)+";pu;":GOSUB 50000 

33160 LF=LA/2-(A/4-X3) /TAN(3.1416/6) 

33170 A$=" pu"+STRS$ (EX+P-A/4+X3) +STRS (PD+LA/2) +", pdpa"+STR# ( 
BX+P) +STRS CPO+LF) +STRS (BX+P) +STRS (PO-LF) +STRS (EX+P-A/4+X3) +5 
TR$(90-LA/2)+";pu;":GOSUE 50000 

33180 FOR TEMF=1 TO 5000:NEXT 


21150 XC=BX+P-A/4:YC=00+12xLA/8:R=A/4:At=-74: 40584 FILS LD 
33200 GOSUE 48000 
12710 KC=PX4+B-N/4:YC=90-3%L0/8:Rrûe Ales Ti Ier Cle Lors 
332280 GOSUE 48000 
33230 XC = BX + B - A:YC = 90:F = A:Aâl = - 17:42 = 1é6:Bi = 1:LD = 0 


33240 GOSUB 48000 
33250 RETURN 


41000 PRINT "ÉÉLELELELERÉELEELEEREELREELELREEEE Trace du corps de la vis £ 


ÉÉLELELELEEEELL" 
4110 FOR TEMP = 1 TO 5000 NEXT 
41020 À$ = ‘spz;lt;":GOSUB 50000 
41030 FOR TEMP = 1 TO 5000: NEXT 
41040 KXC = AX:YC = 90:R = D / 2:41 = 0:42 = 360:P1 = S:LD = 1 
41050 GOSUB 468000 
é NO Agr'"spl; ":GOSUE S0000 
LOTO FOR TEMF=e1 TO SOOQ0:HEX 
41080 AE "pUMA4STRE CEX-L+4, 6RxP)4+STRS (90+D/E) +", pd'4+STRS (BX) +ST 
FE (90+0 HMS RUM+GTRS CEX-L+,6xF) 4STRS (90-D/E) 4", RAM4STRS (EX) 
#+STRE LPO-D/2) 4%: pu; ": GOSUE S0000 
41090 A$z"spz; ":GOSUR 50000 
41100 FOR TEMF=1 TO SOOO:NEXT 
41110 XC=AX:VCE=90:KRE=D/2-,6xF :A1=0:AT=E270:F1=5:LD=1 
41120 GOSUE 48000 
41130 FOR TEMF=1 TO SOOO:NEXT 
41140 A$="pu"+STRS (BX-L) +STRS$ (90+D/2-,6xF)+",pdpa"+STR$ (PX-L 
+X)+STRS (90+D/2-,6XF) 4+STRS (EX-L+X+,6XF) +STR$ (90+D/2) +"; pu; ": 
GOSUR 50000 
41150 A$="pu"+STRSE (EX-L) +STR$(90-D/2+,6xF)+",pdpa"+STR$ (EX-L 
+X)+STR$S (90-D/2+,6XxF) +STRSE (BX-L+X+.6XF) +STRS$S (90-D/2) +"; pu; ": 
GOSUE 50000 
41160 A$="spi;":GOSUE 50000 
41170 FOR TEMF=1 TO SOO0:NEXT 
41180 A$="pu"+STRS (BX-L)+STRS (90-D/2+.6xF)+",pdpa"+STRS$ (EX-L 
)+STR$ (90+D/2-,6xF)+STR$ (BX-L+,6%xF)+STRS$ (90+D/2) +STR$ (BX-L+, 
PPT M CE PEN RENE SOS 
41190 A$="pu"+STRS CBX-L+X) +STR$S (90+D/2) +", pd"+STR$S (EX-L+X) +S 
TR$(90-D/2)+";pu;":GOSUR 50000 
&#1200 RETURN 
42000 ’ £L£FÉLEFÉEÉLÉEÉEEEEE Mise en page et trace des axes £ff£ff£f 
£££E 
42010 A$="sp2;pu10,90,1t5,pd4,264,90;pu;":GOSUB 50000 
42020 ’On considere, pour la M E F,hauteur de tete CHe=B 
42030 MEF=A+L+P 
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1 CAN + 
50H00 


EE CAO EU pAM4E TRE CAX) +OTRE CL 4) + 


ÊRE Choix de ln vis LÉÉFELELE CRÉES 


La forme 
le 0 Met 
de La tets 


e du 
430 


MUR 
TÉ 


LL ; FT+ $ LL 
A ermenn EE 
020 


NE 
: Le 


mOYi ";vs 


M" ;0 


LE) 


LH y 
THEN 


LÉRE Tableau de dimensionnement des vis ££ 


5 


»),B(18),CCX39,18) 


lé TO 39 
ACL) 


æ1 TO 18 
se 


(a 


Initialisation de La Lable LÉFELÉLEÉ 


PAL EL. 4 7 
ro 084! 


ke, 0,190: pu, 0, pat, 19 


EE 


A, FA, LEO LD 1 sentir &iron 0 


KE, Léalé 160: FLEUR, LL é 160: FLE 


48030 FOR T=Ai TO AZ STEF F1 

48040 X1=XC+RXCOS (T) 

48050 Y1=YC+RXSINCT) 

48060 X2=XC+RXCOS (T+F1) 

48070 Y2=YC+RXSINC(T+F1) 

48080 A$="FU"+STRS (X1)+","+STRS (V1) +", FD"+STRS (XE) +STRS (YE) + 
“;FU;":GOSUB 50000 

48090 T=T+LDxF1 

48100 NEXT T 

48110 RETURN 

50000 '’£SÉLSLLELLEELELEELELEE CALL "oi" LÉLSLLLLLSESEELLELELEEEIEE 
££££ 

50010 CALL'"21"CPNX,"w",8EX,A$,3,13) 

50020 FOR TEMF=1 TO S00-NEXT 

50030 RETURN 

50100 CALL'"'ci"(PNX,"w",6EX,A$,3,13) 

50110 FOR TEMP=1 TO BO0:NEXT 

50120 RETURN 

51000 ’ f£LELLELLELLELELELLEE Entree des donnees DATA ££££S£S£LSEILLE 
f£££ 

51010 DATA Re A BI M CTI 

51020 DATA 12,14,16,18,20,22,25,28,30,35,40,45,50,55,60,65, 
0,75,80,85,90,100,110,120,130,140,150,160,170,180,190, AE 
5,250 

51030 DATA 8.5,3,4,5,6,8,10,12,14,16,18,20,22,24,27,i 
51040 DATA :45,,5,,7,.0,1,1:25,2:5,1:75,2,2,2,5,2:5 
3.5,3.5,4 

51050 DATA 5,5.5,7,8,10,13,17,19,22,24,27,30,32,36,41,46,50, 


dr 


51060 DATA 1.7,8,2.8,3.5,4,5.5,7,8,9,10,12,13,14,15,17,19,21 


51070 DATA 4,5.5,7,8,10,13,16,18,22,24,27,30,33,36,,,, 
51080 DATA 2 2. 5, æ # 5, 4 8, 10, 12,14, 14,17, 17 at me: 
51090 DATA 1 


L'RÉTET ICE LS TE MOULE 


S1100!. DATA LL, TER hu 0 08. de 0 
51110 DATA M Len de vu Cote 

51120 DATA RE D ER CRE CR TE TE 
91130 DATA L1,12,16,16,/18,,,, 355, Geo 
160 DATA: 11:12,16:16,10 sous ns 
51150 DATA 11,12,14,16 BE ui sn das à 
51160 DATA ‘42,146, 16, 18 Rd 0 DCE DDR 
51170 DATA ,12,14,16 IDR D Lun Ce 
51180 DATA ‘12,14,16,18,22,2 26,80; 5505 5008 
51199 DATA ,,14,16,18,22,26,30,34,,,,,,,,, 


51200 DATA ,,14,16,18,22,26,30,36,38,,,,,,,, 
51210 DATA ,,14,16,18,22,26,30,364,38,42 


PE SE A LE à 


51220 DATA ,,14,16,18,22,26,30,36,38,642, 46 50.,,,, 
51230 DATA ,,14,16,18,22,26,30,34,38,42,46,50,54,,, 
51260 DATA ,,,14,16,18,22,26,30,34,38,42,46,50,54 
51250 DATA ,,,14,16,18,22,26,30,34,38,42.46, 50.56.60, 


51260 DATA ,,,14,16,18,22,26,30,34,38,62,66 50.54.60. 66, 
51270 DATA ,,,,18,22,26,30,34,38,42,46,50,54, 60,66, 72, 
51280 DATA ,,,,18,22,26,30,34,38,42,66 50, 54 . 60. 66 , 72. 
51290 DATA ,,,,18,22,26,30,34,38,42,46,50,546,60,66,72,78 


51300 DATA ,,,,,22,26,30,34,38,42,66,50,56,60,66,72, 78 
51310 DATA ,,,,,22,26,30,34,38,42,46,50,54,60,66,72,78 
51320 DATA ,,,,,22,26,30,34,38,42,46 50, 54,60. 66, 72,78 
51330 DATA ,,,,,,32,36,40,44,48,52,56,60,66,72,78, 84 
51340 DATA ,,,,,,32,36,40,44,48,52,56,60,66,72,78,84 
51350 DATA ,,,,,,32,36,40,44,48,52,56,60,66,72,78,€4 
51360 DATA ,:,,,,,36,40,44,4B,52,56,60,44,72,78,84 
51370 DATA ,,,,,,,26,40,44,48,52,56,40,66,72,7e,84 
51380 DATA ,,,,,,,36,40,44,48,52,56,60,66,72,72,P4 
51390 DATA ,,,,,,:,40,44,48,58,56, 60,66 ,72, 76,84 

51400 DATA ,,,,,,,,40,44,48,52,56,60,66, 72,78 ,B4 

51410 DATA PR PT 0 24 

51420 DATA 
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Programme : 
assemblage par 
vis H ou CHc 


cotation fonctionnelle 


Nous abordons, dans ce programme, la concep- 
tion assistée par ordinateur. 

Il consiste à réaliser le dessin d'assemblage de 
deux pièces par une vis. 

L'utilisateur choisit la forme de la tête, le 
diamètre et la longueur à partir du tableau 
dimensionnel dont l'étude a été faite 
précédemment. 

Le traceur dessine les trois pièces à partir des 
données précédentes, à l'emplacement voulu, 
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puis réalise l'ensemble monté en coupe en 
tenant compte des formes vues et des formes 
cachées. 

En vue d'une utilisation pédagogique, ce 
programme conduit par l'étude de deux 
conditions fonctionnelles où l'utilisateur carac- 
térise les vecteurs des chaînes de cotes mises en 
place. Les cotes correspondantes sont ensuite 
reportées sur le dessin de définition des pièces. 


Programme (T.T) 
Figure 3.25 

1 ‘le 16-07-85 

10 TARAUDAGE BORGNE 
20 Frogramme TAFRORTT 
finition des equations 
UOFNACX, VieX-XR40/ 2e, 4x 
FNECX, 0 (D/8r.6 
QXF+, 2AXF) XX CEE + LOXF) 

FNC (X Ve. XR-D/24, 6xF 

7 ENDEX, Ve (D /E, 4x) 4 0, ZxDe, 26xF) xx 4 CXRX CURE 4 TL OX) 
EXRA4D/ Re, 6% FD X CYREJ+LOXPE, ZXDe, B6XE) ) 

100 GOSUR 45000: INITT4S 

110 GOSUE 42000: CARTT42 

120 GOGUR 40000 :' NOMTT40 

130 GCOSUF 23000: Tableau de dimensionnement des vis 

140 GOSUR 22000:’ Choix de La vis 

142 GOGUR 26000: Controle des dimensions 

145 GOSUR 20000:'Mise en page 

148 AXEXN:AYEYN 

149 Abe"spe; LES: pa +6 TRE CN) 4 STRGE CYNAL. + 1 0 4, BAS TRS CXND 4#ST 
RE CYN- D-103+";pu; lt; ":GOSUE 50000 

150 GOSUB 30000: Choix de la tete de vis 

1640 GOSUR 35000:’ Trace du covps de La vis 

165 COUREOK (1,1) :INFUT A$ 

170 BXeXQ:PV:YQ: CASE 

175 Ate'spe;1ÉES; pa "+CTRS CBX) 4STRSE CRY-TTYF-L.+4e 25) + tp, pros 
TRS CBV+J+10kP+20) +"; lt; pu: ": COSUR 50000 

180 GOSUR Z6000:'trace du carter 

185 ÉURSSRT 1): INEUT A$ 

; Fo: CV VE: CAGE 

“38000: ’ trace du couverele 

e LL): INFUT ÀA$ 

197 At="spe: LES: pa"4STRS CXM) 4GTRS CYM=D 10) +", BAM+ETRE CXM)4ST 
R$ CYMEL+LOXE +30) +": pu; lt; ":GOSUR 50000 

200 EX2XM:BVY=YMalL-.J: CAGE 

210 GOSUR 36000: trace du carter monte 

el CURSOR (1,1) : INFUT A 

7 QXeXM:CVeVM:CAGEE 

220 SOSUE us e du couveraole monte 

so CURSOR (A, à: INPUT A$ 

XM: is 2 

UB XO000:GOSUR 35000:'trace de La vis montee 

242 QURSOR CL, 1): INPUT A% 

4x LONGFILETEZ=X 

245 GOSUR 24000: Trace des hachures 

tape, pupa STE CXM+D/ EN ESTRE CYMU/ EN EU DA STRE CXM+D+ 
351+",70;pu; ":GOSUE 50000 

251 Ate'"spl:pu"+STRS CXM+D+25) +4" 065, pA"4+ETRE CXM4D4+25) 4070 pu 
MASTERS CXM+D4R6) 40,75; ":GOSUR 50000 

295 CLE:PRINT:INFEUT numero de La piece of nomenclature) :" 


260 Ate"spl;di0,-1;:81,285,.5,1ER"48TRE CN): GOCUR 50000 

270 A4 + OS AS DAT D PES TRE AMP ERA RES RACE RENE 

+047 0 ,p :AOSUE 50000 

271 A$e"spl; DUMHGTRS CXM4D4+35) +", 125, pAteSTRE CXM4+D+ES) 4" 140, 

PU"+ETRS CXHYD+ ZE) +", 145 ; : GOSUE 50000 

© NT:INFUT "rumero de la piece IN 

276 NF'zN 

260 Afe"spi: 1h "4STRSE CN) : GOSUR 50000 

290 A$z'"spe LPAUEETRSE CXMAD4LOD STE CYMALOI EU DAUESTRE CMD 5) 
pu; ":GCEUR 50000 

8pl; PUT+STRE CXMED+SS) #7, 208, pd STRS CXMFD+SSI +", 210, 

& CXMFD4+BED +" PS, :GOSUR 50000 

295 BRINT : INPUT “rumevo de la piece SUN 


FO x Ve CC EXD, HGxF KX CCXR-D/ 4, 6x) x 
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30000 


ation fonctionnelle 


: 
+15 
PeMEFYM) /2 


-MEFYND/E 

YM 

-MEFYFA/3 

OF OITYNES OR ITYF£S THEN FRINT:FRINT "Choisi 
interieure": CURSOR CL, 13: INFUT A$:GOTO 140 


20060 
v une 
20100 
LL 


01:30 
OT 40 
SQLSO 
1 él) 
0170 
180 
20190 
1000 
1010 
21915 
1080 


3% 


XLTX +40 
TYN 4 
x TTX +60 
CYE+D 


AMHETRS CÉRCFIHETRE CYMeleJ) +, pd, pre GTRE CE, S 
LB COPY HROTRS Ce Xe) 4 RS TRS CD A/R OL, SXCF) +" 
90 

CE CA XOF +, 5) HOTRE CYMEl) + pd, prOMHETKRS C-X 4.) 
1,5,3,1,0,0,"4+STR$8 CX-J-23) 4"; pur 4 STRS CC--X 
slba":GOEUR 50000 

HRCFIASTRS CYMI +", pd, pre TRS C4 HXCF) + ",0 


, D: pt 


O0 
MOHe" THEN Abe "bu MeSTRE C4, SRCFD 4" O0, pd'4STRS (4x 
) ":GOSUR 50000 
CRROPIHETRE CYMalJ) +" pe, prOM4STRS CL 47) 4" 
pu, "RGTRE CL) /2+8) : GOSUB 50000 


D/5 
CHERE 
A 
21060 


tion des cotes 

HETRE CARO HOTELS CYM) +", pd, prO "STE (Le X) 4, pit 
3,pu0, MRSTRE Ce he X) 24) : GOSUR 50000 

21500 

MHUOTHEN SASLA/E ELSE SA&C/E 

RAMES TRS CEN+S AD +STRS CYND + pd, pr A STRS CAXCF) +", 
ROFIÆHOTRE CL) 4 pAttE TRE CROP EE AED/E) 400 05 pu; 


” , 3 
21090 GOGUE 
MLAO0 IF ETS 
BLLLO Abe" 
D,MU"ARETRSE ( 
SUP 50000 
D AB "pue STRS CSAD/P4L, SROFI4STRE C-LA4X) +", pul,3,pd-1,-3 


THEN AS "pa "4STRS CXP4C/D4D/5) 4STRS CYED +", 
00/2341", 0:pu:":GOSUB 50000 
& CXF4D4 PO) +GTRE CYED 4" pp "4STRE (2, SXCF) 4", 
CRETE CP, SROP) 4 Q:pu: ":GOSUE 50000 
4% pal, 3,1,-3,pu-1,3,pd0,"4STRE 
nl ,e3, 1,38, puOD"+STRS (CL) /2+4) :GOSUB 50000 
10) 
A M4GTRS CXM-D/E0 LETTRE CYMAL HE) 4 pdpr M 4STRS C 
0, PUM4STRS COPY HSTRE CP)" pAtaSTRE (D/P420 
j+",Q:pu;":GOGUR 50000 
+GTRE CRC +, SD 4GTRS CYMEL HER +, pADrO RG TRE Céx 
5 5,3,4,0,0, "4STRE CéxPe x) 4" pur, MAGTRSE Ce 
50000 


%e 


EN PUS PEL 
2 23 0 À à 72 À 0 He 


ee de BXCFIESTRE CYMA4L D) 4", pd, pr te STRSE CCF) #0, 0 
GOSUE 50000 

1200 (A#= "pa" #STRE (CF) +STRS (YHEL+6RP) +1, pd, prO4BTRE (réaP-A) 
-1,3,pdi,-3,1,3,pu0, "+STRS CCé&xP+J) /24+2) : GOSUR 59000 

P 1500 

"paMsGTRS COFIEGSTRS CYMAL JD 4", pd, prOMHETRS CL A4. 

Ta R 23,13 pu0, "#STR# (CL) /2+2) : 60€ UE 50000 

BLEXO GOGSUR 21500 

MP4O Abe "pa "4STRE CRRCFIASTRE CVMI 4", pd, prOMeCTRS CL) 4" pur, 
3,pd1i,3,1,-3,pu0,"+STR#(C-L/242) :GOSUR 50000 

50 GOEUR 21500 

21860 Aga"spe; pa'+OTRE CXN4D/2—, 6x PF) +STRS CYNALOI EN RApr Me STRE 
GSA+4RXCF-D/24+, 6XF) +, 0; pu; ": GOSUR ae 

21870 AB="PUM+STRE C—, aus 1)#",=3, pd, Les pue, PAD  7#oT 
RS CL) + "put, 3,pdi,-3,1,3,pu0,"+s A ee 50000 
212680 GOSUR 21500 

M1P00 Ages "pa"+GTRSE CXQ+D+P0) 4STRE (VO) +", pdpr MESTRE CE, SRCFI 4", 
Q, pu, "GTR CI+éxEr +", pdtSTRE C2, SXCF-20-D/2)4+%,0;pu; °°: GOSU 
E 50000 

SAXO0 Aée "pu" eSTRSE CD/BA4POHPROF 1) 40,23, pd1,3,1,-%, pu-1,3,pd0 
Us GTRE CJ-éxP) +" pu-t,3,pdl,-3,1,8,pu0, "+STRS CCJ+4XP) /242) : 
GOSUR 50000 

21310 GOSUR 21500 

100 Abe"pa"+tOTEE CXFA4D4ROABROF 41) 4STRE (VF CL) 2) 4" lbs EU 
TRE ONF: GOSUR 50000 

21430 RETURN 

21500 ’ Identification des 2otes 

21510 CLS:FRINT:FRINT "Un maillon de la chaîne est trace, IDEN 
TIFIEZ-LE": axemple:soit une condition Jd, 
un maillon de la piece 4 sera identifie dé" 

21520 INFUT ICS 

5 Agaæ"I1b"+ICS$: GOSUR 50000 

RETURN 

!LÉLEÉLEÉÉEFÉEEESEEEChOIÏX de la vis 

oLS 

) FRINT "Choisir La forme de la tete de vis puis a l'aid 
@ du tableau, donner le 0 M,et la longueur L' 

22030 INFUT “Forme de la tete taper H ou CHe ET 


a 


+ 

22040 INFUT "Diametre nominal M A D 
28050 INFUT "Longueur totale L LP 
Determination de l'indice T 

FOR Iz5 TO 39 

IF ACI)=L THEN T1=l:1=39 

NEXT I 

‘Determination de l'indice Jet de F.A,B,C,K 

£ FOR Jæel TO 18 

22180 IF BCzeD THEN disJ:J=18 

30 NEXT 

Je Ji 

FaC(1i,J):A=C(R, JD :BeC CS, J):QmC (4, J):K=C CS, 4) 
Détermination de x 

Je JA: Teri 

XæQ CT 4) 

PEINT "Trace d'une VIS MFTH:" MM imen 
INFUT "S'il n'y à pas d'erreur taper Ve VV 

IF Y#<C)"Y" THEN GOTO 22020 | 

FETURN 

ÉÉFÉCÉÉESÉESÉCEEET Tableau de dimensionnement des vis 
Entre dés donnees 

DIM AF(S) ,A(39),B(18) ,C(39,18) 

FOR Teil TO S5 

Ag CT) 

a 

FOR I=zé TO 239 

3070 FEAD ACT} 
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“1 TO 18 


24000 
24005 


es Q © 
4120 


25000 
VV Mal) 


des 


dés 1: s de hacthuves entre secteurs 
ee, 6XF: QEINT (DEN/5) : DHE  (DEN- 5%) 
ae NUE 3 5x0) 
: ENTCDEN/ 5): 0H? s 
HP 40H 
JALGEP EXD, REX : QEINT CDEN/ 5) : DH11=5- CDEN-5%x0Q) 

HP, XF: QE INT CDEN/ 50 : Dee CDEN-5%x0) : DHS=DHI1+D 


HE Q : QRINT DEN 5) :DHeS- (DEN-5%x0) : DHID=DHI1+DH 

1: 20 QE INT CDEN/ 5) : DHL S- CDEN-5%x0Q) 
LNTCDEN/5) :DHiézS- CDEN-5%*x0) 

Ge 7x0 20 QE TNT CDEN/ 5) :DH1SES- CDEN-5%x 0) +DH13 


CLR] 
pe BC Ve VE WE AJ 4 TOR Ee  ExQie 


Co: Vle VAR: Vis VER J+LOxF+, 3xXD-,3 


DVI VERS VER VAR e,S 


MOGUE 41000 
KFHD4LS IV Le YR: Ve VER, 5 


GOSUE 41000 
XD, 6xPe, ide VRa Ve VE + LOF, 3x0 


41000 
ED LS, BV Le VRAI: Ve Re Le LOF 2x 


41000 
EVLE VER ALORS Ne VRAI AL OF Bee 2 


XieXR: XBeXRAD/Be, GX: Vie YR4 JL ORE : 


YA J+LORP+, ZXD—, 3 


24850 TeDH10 

24860 DEF FNFILCX, YF ND CX, V2 

24870 DEF FNFECX, VhmFNCOCX, Ÿ) 

24880 GOSUE 44000 

24860 XLEXR-D-19, 8: XDeXR4D4LS, Bi Ve VR4J4+LOREE, EXD, és Y 


Be VAE J4LOXF4+LS 
4900 


LeCOHAT 

GOSUB 41000 

RETURN 

25000 ‘Hachures du couverele 

25010 XLEeXS-D-20: XPeXS-D/2-0/20-, 5: VleVS+, Va VE ee 
25020 Ix0 

25020 GOSUR 43000 

25040 X1=XS4+D/24+D/P0: XPeXS+0D4+19,5:VleVS+, Give YS+l Je, S 
25050 IeDH13 

25060 GOSUE 43000 

PS7 XLeXE- De PDO: XPEXGe 0 / De) / 5e: Vie V Gel D 4/64, Hiva VS 
25080 IeDHlLé4 

25990 IF FTé="CHe" THEN GOSUR 43000 

25100 X1eXG+0/84+D/5:X8EXG4+D419,5:V1eVS-D-D/5+, 5: 
25110 IeDH15 

25180 IF FTéz"0Me" THEN GOSUR 43000 

25130 RETURN 

26000 F 4 ÉRLÉLLEÉÉEEEE Controle des Adimer 
26010 IF Xe0 THEN FEINT "Mervit vos donr 
JL): INFUT AE: HOTE 140 
£ 1 ; CHE" THEN GOSUE 27000 


Feu 


ce QURSGOR CI 


el THEN Cle 

950 NEXT TL 

065 IF CLO1 THEN FRINT "Verifiez vos donnees L non normal 
i BU QURGEOR CL, LD: INFUT AS:GOTO 140 

26060 FOR Jel TO 18 

26070 IF BCJie)D THEN Cri 

6080 NEXT 4J 

5 IF CPL THEN FRINT "Verifiez vos donnees D non normal 
:QURSGOR CL, AL): INPUT AH: GOTO 140 
110 RETURN 
27000 ‘Controle CHe 
7010 IF Ce] THEN FRINT "'Ugrifiez vos donnees Ce": OUREOR CI 
AT INEUT A:GOTO 140 
27020 RETURN 
30000 Choix 
AOO10 IF FT# 
Y0080 IF FT 
30030 RETURN 
É1000 ‘Trace de la tete H 
1010 LAmA/COS CH, 1416/46) : KERGQR CCA/ 4) AB CA/8) ADD LF el A Le CA 
d ROPA TANLS: 1416/4) 

f PA: pa Te TRE CAX ELA) +OTRE AY B+A 74 XER 4" pétpo 4 ET 
DHSTE CA / 4e XD ES TRSE ( x1.F ; F4 et+tLF)+5s 
334,0, "#GTRS (B-A/44X2) 4STRS (LA) +" DO, MHOTRE CPR) 

350000 
21 spl; A Ne ADN LA ES + As 4e 
TRS (AX+BXLA/B) +S TRS (AV HA 4 EU LE x F 
+": na"4STRE CAX-3xLA/6 D 4GTRE CAY 
50090 
TLO4 0 Abe pa METRE CAXAL AZ D HS TRE CAVE pp 
KA" DURS TRE CL A/R) 4" 0, pd, prit, MRGTRS Cf 
LE 00 
41050 RETURN 


» La tete de vi 
HEUTHEN GOSUR 
'HUOTHEN G 


12000 
SUR 31000 


TRS «A/ Pne 
X3) :G0S 
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32000 ‘trace de la tete CHe 

32010 A$="spl;pa"+STRS$ (AX) +STRS (AY) +", pdpr"+STRS$S(C/2)+",0,0, 
"+STR$ (-9xD/10)+";ar"+STR$(-D/10)+",0,-90,pr'"+STR$(-C+2*xD/10 
)+",0;ar0,"+STR$(D/10)+",-90,pr0,"+STR$ (9xD/10)+STR$(C/2)+", 
0;pu;":GOSUR 50000 

32020 K1i=kK/C0S(3.1416/6) 

32030 A$="sp2;1t2,1;pa"+STRS$ (AX+K1/2) +STR$ (AY-D)+",pd,prO,"+ 
STR$ (2#D/3) +STR$(-K1)+",0,0,"+STR$(-2#D/3) +"; pu"+STRS (K1/4) + 
",0,pd0,"+STR$(2#D/3)+";pu"+STRS$(K1/2)+",0,p4d0,"+STR$S(-2xD/3 
>+";pu;":GOSUR 50000 

32040 RETURN 

35000 ‘Trace du corps de la vis 

35010 A$="spl;1lt;pa"+STR$ (AX+D/2) +STR$ (AY) +" ,pd,prO,"+STRS (L 
A 6XF)+STRS (—,. 6x F)+STRS C, 6XF) +STRS (-D+1,Z2XF) +", OU+STRS (—, 6%xF 
)+STRS (—,6XF) +", O"+STRS (-L+,.6xF) : GOSUP 50000 

35020 A$="pu0,"4+STRS$ (L-X)+",pd"4+STRS (D) +",0; pu0, "+STRS (X—, 6% 
F)+",pd"+STR$(-D)+",0;pu;":GOSUR 50000 

25030 A$="S5p2; pu"+STRS$ (.6XF)+STRS (,6%xF) +", pd0,"4+STRS (-X) +STR 
$C-,6XF)+STRE (-,6XF) +"; pu" +STRSE (D)+",0,pd"+STRS (—,6XF) +STRE( 
.6XF)+",0"+STR$(X)+";pu;":GOSUE 50000 

35035 FOR TEMP=1 TO 5000 :NEXT 

35050 RETURN 

36000 ’trace du CARTER taraude 

36010 A$="spi;lt;pa"+STR$ (EX-D-20) +STR$ (BY)+",pdpr'+STRS$ (D/2 
+20)+",0;pu;":GOSUB 50000 

36015 IF CAS=1 THEN A$="spl;" ELSE A$="sp£;1t2,1;":GOSUR 500 
00 

34020 Qé$é="nd"4+STRS (D) +", Q:nu: ":GOSLIR SNnNN 

36025 A$="spl;1lt;pd"+STR$(D/2+20)+",0,0, "+STRS$ (J+10xF+15)+"; 
pu; ":GOSUE 50000 

36030 GOSUR 37000:'trace run number D(rnd) 

36040 IF CAS=1 THEN A$="spli;" ELSE A$="sp2;":GOSUR 50000 
36050 A$="pa"+STRS$ (PX-D/2+,.6xF)+STR$ (BY)+",pd,prO"+STRS (J)+" 
,PU"+STRS$ (D-1,2%F)+",0,pd0,"+STR$(-J)+";pu;":GOSUR 50000 
36060 A$="sp1i;pu0"+STRS$ (J)+",pd0,"+STRS (10xF) +STRS (-D+1,2xF) 
+",0,0,"+STR$(-10xF)+",pu0, "+STRS$ (10XF) +", pd"+STRS$ ((D-1,2%XF) 
JED4SGTRE CCD 1, DXFDX, TT) 4STRSE C(D-1, XF) /D)4STRE (- (D-1,2XF) X,3) 
+";pu;":GOSUR 50000 

34080 A$="pu"+STRS CC. 6XF)4+STRSE C—-6XF) +", pPAM4+STRSE C-D) +" ,0; pu; ": 
GOSUR 50000 

34090 A$="Spe; puO"+STRS (—-J-4xF) +", pd0, "+STRE (J+4xF) +OTRSE OC, x 
F)+STRS C.6XF) +", pu"+STRS (D-1,2xF)+",0,pd"+STRSEC. 6XF) +STRE C—, 
6XF)+",0,"4+STRS$(-J-4xF) +"; pu; ":GOSUR 50000 

37000 ’trace de rrd 

37010 RETURN 

38000 ’trace du couvercle 

38010 IF FT$="H" THEN GOSUR 38100 

28080 IF FT$="CHa" THEN GOSURE 39000 

38030 RETURN 

38100 ’trace du couvercle (tete H) 

38110 A$="spl;lt;pa"+STR$ (CX-D-20) +STR$ (CV) +", pdpr"+STRS$ (EXD 
+40)+",0,0,"+STR$(L-J)+";pu;":GOSUR 50000 

38120 IF CAS=1 THEN A$="pd"+STRS$ (-2xD-40)+",0;pu;":GOSUR 500 
00 

38130 A$="pa"+STRS$ (CX-D/2-D/20) +STR$ (CY)+";:pd,prO"4+STKRS (L-.J) 
+",pu"+STRS$ (D+D/10)+",0,pd0,"+STR#(-L+J)+";pu;":GOSUR 50000 
38140 RETURN 

39000 ’trace du couvercle (tete CHa) 

39010 A$="spli;lt;pa"+STRS$ (CX-D-20) +STR$ (CY-D-D/5)+%,pdpr"+ST 
R$ CAxXD+40) +",0,0,"4+STRS$ (L-J+D+D/5)+"; pu; ":GOSUR 50000 

39020 IF CASGEr1 THEN A$="pd"+STRS$ (-2xD-40) +",0;pu;":GOSUR 500 
09 

39029 A$="pa"+STRSE (CCX-C/2-D/5) +STR$S(CCY-D-D/5)+",pd,prO"+STRE 
(D+D/5) +STR$ (C+2xD/5)+",0,0,"+STR$C-D-0/5)+"; pu; ":GOSUB 5000 
0 
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39040 A$="pa"+STRS (OX-D/2-D/20) +STR$(CY)+",pd,pr0,"+STRS$ (L-—.J 
)+",pu"+STRS$ (D+D/10) +",0,pd0, “+STR$(-L+J)+";pu;":GOSUB 50000 
39050 RETURN 

40000 ’ NOMENCLATURE A3 

40010 ’Frogramme NOMTT40 

#0020 INFUT “Nbre de pieces reperees :";k 

40030 M=(R+1)x8+2 

40040 A$="spi;pa213,40,pd,pr,0,"+STR$(M)+",puiS,"+STRE (Hs +" 
,P4d0,"+STRS$ (M)+",p1115,"+STR$(-M)+",pd0, "+STRS$ (M)+",pu100,"+S 
TR$ C-M)+",pd0, "+STRS (M)+",puz0, "+STRS(-M)+",pd0, "+STRS (M) +"; 
mu,":GOSUE 50100 

40050 FOR I=1 TO R+1 

40055 IF I1=1 THEN A$="spi" ELSE A$="sp2":GOSUE 50000 

40060 A$="pa213, “+STR$ (40+1%8) +"“pd,pr190,0;pu;":GOSUR 50100 
40070 NEXT I 

40080 FOR TEMF=1 TO 10000:NEXT 

40090 A$="pa218,43,pd;si.2,,3;di1,0;1bKep":GO0SUE 50100 

40100 A$="pu233,43,pd; 1bNb “ : GOSUE. 50100 

40110 A$="pu268 , 43 pd;1bDesignation": GOSUB 50100 

40120 A$="pu348,43,pd;lbMatiere":GOSUR 50100 

40130 A$="pu378,43,pd;1b0Observ":GOSUR 50100 

40140 FOR I=1 TO K 

40150 A$="pu218,"+STRS (42+1%8) +"; 1D"4+STRS (I) : GOSUP. SNTNN 
40160 NEXT I 

40170 FOR I1I=i TO K 

40180 CLS:FRINT" CARACTERISTIQUE DE LA FIECE NUMERO "I 
40190 FRINT:INFUT "Nbre de pieces(s) :";N 


40200 INFUT “Designation :";D$ 
40210 INFUT “"Matiere SMS 
80220 INFUT "Observation 08 


40230 A$="pu233, M4STRSE (42+1X8) +"; LD'4STRS CN) : GOSUR 50100 
40240 A$="puzés, "+STRS (42+Ix8) +"; 1b"4+D$:GOSUE 50100 

40250 A$="pu348, "+STRS$S (42+1x8) +"; 1b"+MS: GOSUP 50100 

40260 A$="pu378, "4+STRS (42+IXB) +"! 1b"4+08 : GOSUP. 50100 

40270 NEXT I 

40280 RETURN 

41000 ’ Trace des hachures en continu 

41010 ‘’Frogramme HACHTT41 

41020 ’2f programme DDFTT ou HACHTT44 

41030 ‘Donner les Valeurs de x1,x2,y1 et y? (coordonnees du 
rectangle hachure) 

41040 ‘donner la valeur de I (desalage des hachures en mn) 
41050 ‘puis faire GOSUPB 41000 

41060 FAS=S:ESP=,5 

41070 FOR H=X1+V1 TO X1+Y1+(X2-X1)+(Y2-V1) STEF FAS 

41080 A$="pu;1t;":GOSUP 50100 

#1090 FOR AX=X1 TO X2 STEF ESF 

41100 AY=-AX+H+I 

41110 EX=AX+ESF 


41120 BY=-PX+H+1I 

41130 IF BY(Y1 THEN 41170 

41140 IF AY)VE THEN 41160 

41150 A$="pa"+STRSE CAX) +STRSE (AY) +", PAM4CTRE (PXI4STRE EU) LE 


OSUR 50100 

41160 NEXT AX 

41170 NEXT H 

41189 RETURN 

+2000 ‘trace du cartouche AT 
42010 ‘programme CARTT4Z 
42020 FRINT"'spi=p,7 noire ss 
42030 A$="spli;puñt07,40,pAïiz, MATE 


unes 1 


acs! 6 30000 


42040 A ra os 15 PATéS 1e C};; "G0ŒUE 590000 
42050 ne ;pu; " GOSUE 50000 
4200 : KDE, “:GOCUP 50000 

+:070 A$="pU36Z, 14, RE oe FARSUE. donne 

000 Ar "2u217,74 ,5d424P,74,748,40:pu;":GSOSUP 50000 
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4-090 A$="spl;:0u1348,3;:s1i.7,1;di1,0:1bN":GOSUE 50000 

+2100 A$z%"5a277,13;cil,pu;":GOSUE 50000 

42110 FOR TEMF=1 TO SOOO:NEXT 

&2120 A$="sp2;pa373,34;si.25,.25;4i1.0;1bClasse":GOSUE 50000 
42130 A$="pu378,26; IbNOM":GOSUE 50000 

42140 A$="pu1376,18; 1bDate":GOSUE 50000 

42150 A$="pu215,27;s1i.2,.3;lbEchelle:1/1":GOSUPR 50000 

42169 FOR TEMF=1 TO 2000:NEXT 


MEURT, Zé:si.25,.25.:1bL.E.F. A'HENIN-BEALIMONT ": SOCL) 


:FA444,36;pu;":GC0SUR 50000 
238,40; pu; ":GOSLIR 50000 

TO SONO:NEXT 

38,36;1t;ci3;c<il.5;pu;":GOSUR 50000 

TO SONN:NEXT 

4 A$="paz20,34,5,pd230,33,230,29,220,37.5,220,14.5;pu;": 
GOSUR 50000 

&E24a0 INFUT'TITRE DU DESSIN ";,P# 

42250 NELEN(E#) 

&2260 IF N)14 THEN C=.7 ELSE C=1 

42270 A$="pRU"4STRS (2BE-NXCXS) +",7; Si"4+STRS(.7XC)4+STRS (CD +"; 4 
i1,9;1b"+P$:GOSUE 50000 

42280 RETURN 

42000 ‘Trace des hachures en continu 

43010 ‘’Frogramme HACHTT41 

43020 ’2f programme DDFTT ou HACHTT44 

43030 ‘Donner les valeurs de X1,X2,Y1 et Y2 (zcoordonnees du 
rectangle hachure) 

43040 ’ donner la valeur de I (decalage des hachures en mm) 
43050 ’puis faire GOSUE 41000 

4#3060 FAS=S:ESF=,5 

43070 FOR H=Y1-X1+(Y2-V1) TO Y1-X1-(X2-X1) STEF -FAS 

43080 A$="pu;lt;":GOSUR 50100 


D AS 
D, ue, Pé 


43090 FOR AX=X1 TO XE STEF ESF 

43100 AY=+AX+H-I 

#3110 BX=AX+ESF 

43120 BY=+PX+H-I 

42130 IF BY<CY1 THEN 43160 

43140 IF AY)VE THEN 43170 

#3150 A$="pa"+STRS CAXI+STRS (AV) +", pA"+STRSE (BX) +STRS (BY) :E 
OSUR 50100 

#3160 NEXT AX 


43170 NEXT H 

43180 RETURN 

44000 ‘Trace des hachures 

44010 ‘’Frogramme HACHTT44 

44020 ’2f programme DDFTT 

44030 ‘Donner les valeurs de X1,X2,Y1.,Y2 

44040 ’ Donner la valeur de I(deralage des hachures en mm) 
44050 ‘definir FNF1CX,Y)=FNACX, V) Loir BC sac 
44060 ‘definir FNFICX,Y)=FNE(X, Y) Cou: C,D52340 
44070 ‘puis faire GOSUP 44000 

44080 FAS=,25:7-=0 

44090 FOR Y=Y2 TO Y1 STEF -PAS 


&4100 FOR X=X1-25+1 TO X2 STEF 5 
44110 F1=FNF1CX,Y) 

4&4120 IF F13=0 THEN Z=X:X=Xx2 
44130 NEXT X 

44140 FOR X=Z TO X2 STEF 5 
44150 2=FNFECX, Y) 


44160 IF F2)=0 THEN X=XE:GOTO 44180 

44170 A="PUMESTRSE OX) 4STRSE CV 4U, PAM+GTRS CX) +STRE CVI +: 
pu;":GOSUER 50100 

& 4180 NEXT X 


&à190 T=I+FAS 
44200 IF 1725 THEN 150 
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3000 
à SÛLQ 
+3020 


LPS RER se":CALL'p1l € 

: CAILL. 4800,,,,,,1024" 
Fa LL Ë 0, LE Fe) LL ; 
à SDS D, 16188, 11040; s5e0, 40,0 
“: GOGUR 30000 


45050 CÉLLAe 
450460 
.Ù0,4€ 
CRIE 
50000 ‘CALL "ei" 

50010 ALL "ei" CPNX, "ut 8E%X,A$,3,13) 

FOR TEMFæe1 TO LOOUD:NEXT 

ÉETURN 

CALL "ei" CPNA, Mu SEX AE ,3, 17) 

30110 FOR TEMF&Ll TO 5: NEXT 

50120 RETURN 

S1000 ‘ÉÉÉÉLECÉLÉELESESÉENtree des donnees DATA 
S1619 DAT pu ; Ci HT ; nr LE EE QI AL 

DATA 1£,14,16,18,20,28,85,28,230,35,40,45,50 ,: 
80,85,60,100,110,120,130,140,150,160,170,180, 


5: pu0,0,pdéns 


DATA 2,95,3,4,° 
DATA .45,,5,. 


5,4 
51210 DATA 5:5:8,7,8,10,12,17,19 29 .06,27,30,39 36,4t,46 SO, 


3 
31220 DATA 2 0,20 DOTE CAR, AE. LS AT Lo ST 
DATA ; ,18,28 a o1,30,33,36 
DATA &,: me Le,1 : 7 17, 19 
DATE TS es are à 
LOIS AE ASS D OP MONA RE NE EL 
DATA TL RE Le nn db eye 
DATA 11,12 14, DO on sage er re At 
ë DATA 11,18 ,14., 18 
51300 DATA 11,128,14, PE PS RE 
51310 DATA Ro ee 
31320 DATA ,18,14,146,18,2 
51330 DATA ,18,14,16,18, 
DAT À 12,14, 14,18, 
DATA : l : 
DATA 
D'AT A 
DAT 
DATA, ,Lé,L À 
DATA ,,,14,16, 
DATA 
1 DATA 
DAT fi 
DATA 
3 DATA 
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pers 


LD 1 DD D PANOEOT SvS 


DATA 
J DATA 
JO DATA 
3 GATA 
DATE 
AT 
DATA 
JT SATA 
1 GATE 
} POTA 
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Programme : 
simulation 
d’une unité 
d'usinage 

à trois vérins 


Ce programme permet de visualiser, sur écran 
graphique, le fonctionnement d'une chaîne 
d'usinage «transfert », en l'occurence, une unité 
de perçage. 

Le mécanisme constitué de trois vérins dont la 
représentation à l'écran est schématique et 
cinématiquement minimale, fait apparaître, sur 
un exemple simple, l'usinage automatique d'une 
pièce, depuis sa réception jusqu'à son 
évacuation. 

Ce programme fait appel à la plupart des notions 
de graphisme vues dans ce livre. Il est nécessaire, 
néanmoins, de posséder une maîtrise de la 
programmation de base ainsi que les notions de 
déplacement de figure. 
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L'objectif de ce thème est de permettre à l'élève 
d'être sensibilisé sur les procédés d'usinage 
automatique. Il pourra en dégager un fil 
conducteur propre à tous ces systèmes automa- 
tiques lui permettant d'analyser la suite logique 
des différentes phases de travail. 

La représentation des vérins étant schématique, 
ce programme ne fait pas apparaître leur apport 
énergétique (pneumatique, hydraulique...). 
L'étude de ce thème peut donc se poursuivre par 
la classification de ces vérins suivant leur 
fonction. 

On pourra étendre l'exploitation du programme 
en envisageant le câblage du circuit reliant les 
vérins entre eux. 


Figure 3.26 


Figure 3.27 


Figure 3.28 
Figure 3.29 


Figure 3.30 
Figure 3.31 
Figure 3.32 
Figure 3.33 


Figure 3.34 
Figure 3.35 


Figure 3.36 


Figure 3.37 
Figure 3.38 


Figure 3.39 


Figure 3.40 


Figure 3.41 
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Arrivée de la première pièce dans la goulotte de chargement. Arrêt de cette 
pièce par le vérin V1. 


Descente de la première pièce vers la table de travail, après ouverture du 
vérin V1. 


Mise en place de la première pièce sur la table de travail. 


La seconde pièce arrive dans la goulotte de chargement alors que la première 
se prépare à être déplacée vers le vérin V2. 


La première pièce est déplacée par V2 vers une position intermédiaire. 
Le vérin V2 se retire dégageant ainsi l'emplacement de la seconde pièce. 
La seconde pièce arrive sur la table de travail. 


La seconde pièce s'apprête à être déplacée par V2 alors qu'une troisième est en 
place dans la goulotte de chargement. 


Le vérin V2 déplace la deuxième pièce jusqu'au contact avec la première. 


Le vérin V2 continue sa course et amène les deux pièces jusqu'à une seconde 
position intermédiaire. 


Après l'arrivée d'une troisième pièce, le vérin V2 les pousse jusqu'à ce que la 
première soit mise en position de perçage. 


Retrait du vérin V2. La quatrième pièce arrive sur la goulotte de chargement. 


La quatrième pièce est tombée sur la table. La butée de mise en position 
apparaît au contact de la première pièce. 


V2 pousse la quatrième pièce contre les trois autres, ce qui permet, avec la 
butée, de les maintenir en position lors du perçage effectué par le vérin V3. 


L'opération de perçage est terminée, V3 remonte et laisse apparaître le perçage 
dans la première pièce. 


La butée disparaît, V2 continue sa course évacuant ainsi la première pièce et 
mettant la seconde en position. 

Le cycle de travail est commencé et nous nous retrouvons à la phase qui 
correspond avec la figure 11. 
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UF 
LE 


TS 
res 
ah 
# 
# 
* 
- 
mare 


Fig. 3.40 
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Programme (E.G.) 
Figure 3.42 


4 7 le 86 Juillet 1985 
10 *ÉFÉÉFÉEFECÉLELELLELELELEE UNITESVU LLÉSEÉLSELESISELCELELLECE 


££LE 
PQ eee Programme UNITÉ D’ LGINAGE meme 


30 SCALE 0,€20,0,136 

47 COLOR 1,0:C0LS 

50 INFUT "avance av"; AV 

60 CLS 

70 Mise en place des verins 

80 CXeé0D:0vVEen7 

90 XB=:97:VB=70 

100 AX:177:AVx65 

110 GOSUR 40000:'TABLE 1 

120 GOSUR 10000:GOSUR 11000:GOSUR 12000:GOSUB 123000 :!’V1 
130 GOSUR 20000:GOSUB 21000: GOSUR 22000 :GOSUE 23000:’'VE 
140 GOGSUR 30000:GOSUR 31000:GOSUR 232000:GOSUR 23000 :!’VUZ 
150 GOSUR 40500 :°TAPI 
160 Déx1LS:GOGUR 24000 
GOSUR 43500 :'piece 

GOSUR 25000: ouverture VE 

DEF&32: GOSUR 41000!’ deplacement de la piece 
GBOSUR 44500 

XF=79,5:VFæS7: COLOR 2,0: GOSUR 43000 

AOSUR 24000 

43500 

J'D1=10,5:GOSUR 14000: sortie VI 

DFLESE: GOSUR 44000: Depl piece + piston 
Q . 1SOO0 : rentree VI 

13000 over tint VA 

41900 :'Depl piece 

44 500 

HOSUE 43000 

HOSUR 24000 

GOSUR 432500 

DEL &0:D1 


“à 


fermeture VE 


DS: GOSUR 14000 

:GOSUR 44000 

HOGUE 45000: Depl piston + 2 pieces 
15000 


* 1000 
44500 
43000 
4000 
300 


ec GOSUR 14000 
+400 


900 :'Depl piston + % pieces 


0 


? 3 
SUR 15000 


4000 

43500 

3,0: GOSUR 46000 :'bautee 
QSUP 14000 


sente du Foret 
du foret 


5709 GOSUR 35000: remonte: 


& 4000 
FBené: GOGSUR 46500: deplacement 4 pie 


590 COLOR 0,0: 
590 CELEe 0: DE 
O0 GOTC 4460 
) END 

VGOI ! LÉCCLÉELELELEELE SOUS-FPROGRAMMES LÉLLELÉLELELCÉEFEELELELE 
ÉCL'E 

19000 ÉÉLCLSELE VERIN FOUSGELR CUI) LLLELLSELEE 


LOO1D ? 


10020 COLOR &,0 

10030 LINE (OX-,5,0V48,5)-CCX+,5,CY+10),,BF:LINE (CCX+,5,CY+1 
D) (0x: 5,0Ÿ+9) BF:LINE (CX=-59,5,CY+10)-(CX-58,5,CY-10),, 
PF: LINE COX-58,5,C0V-10)CCX+,5,CV-9), ,BF:LINE (OX+.5, CY-9)—( 
CX=,5,0v-2,5),,BF 

10040 RETURN 

1 1 0 () À oi ve che ani ré mes eds ns 5e ed cit où née ds + race a 1 F 1 & À: CD Fr sum ame mme vo ave ane nue une ae ao vue one mme anne ne ae ane one one ne ae me ane 


CL] 


11010 COLOR GS, O:LINE CCX-56,0vV-8)-(CCX-53,0V+8),,BF 
11020 LINE CCX-53,0Y-1,5)-C0X+9,CV+1,5),,RF 


COLORATION CHAMBRE Lien men 


COLOR 1,0: LÈNE COX-58,0Y+2,5)-C0X-1,5,0V+8), ,BF:LINE 
OPA MEN PES (OX 1,5, 0-69), BF 


L'O:LINE COX-58,0v-8)- CCX-56,5,0Y+8),,PF 


10 COLOR 
ISTON FOUSGEUR-MOUVEMENT ALLER eue me men 


14010 FOR IxDE1 TO Di STEF AV 

LéDE0 COLOR Q,O:LINE COX+1-56,C0V-8)-CCX+1-56,CV+82 

14e Ë sn 3,0: LINE (CCX-534+7,Cv-8)- CCX-53+T,CY+8) :LINE CCX+ 
QE CVs me CCX+94T,CV+L, 5) 

14040 vis 1,0: LINE CCX- S7+I,CV-B) = CCX-5741, CV+8) 

LéO50 NEXT TI 

LéDé( RETURN 

LHC) nee me eee pi GC OT POUSSEUT (MOUVEMENT NÉ OT) ee ve eme eee me 
15010 FOR I=0 TO D1 STEF AV 

15020 COLOR %,O:LINE CCX-564+D1-T, CYe8) + COX Hé+D1-T, CV+8) 
15030 LOL ONR dE (CX=534D1=T, CV) COX H3+D1-T, CY+8) 

d COX S34+D1- Toys 1,9) (CCX-53+D1-T, CY+1,:5) 
COX 53+D1-1,CV-8)-CCX-53+D1-T,CV-2,5) :L 
5) (OX-SH4DiT, CV4E) 

CCX+P+DI- TT, QVe 1, 5) CCX+P+D1L-T, CY+L, 5) 


"ÉCCÉELELELEE VERIN DE DISTRIBUTION CUS) LÉERÉELÉERÉLES 


20040 FQ 
AUD 1 LE 


a 1, A «D7+ 1) 


tn te &1+1) 
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PROGRAMMES 


21010 COLOR 3,0 

21080 FOR Ie0 TO 43,65 STEF AV 

1080 LINE CXB-é OL4T, Ye, BOT). UE mi GOT VE-é  QL4Ti LINE CX 
Bb, Oé+T, VB, Pé+T) 4 XB-3, QérT,VE-é,0é+T) 


21040 NEXT 
21080 FOR Ie) TO LE STEF AV 

AIO6O LINE CXB445, ét, Vh+éé, Gé TT) CKB+éé, déeT, VR43S, 346-T) LT 
CXB+RS, 4e T, Vh+éé, Gi T)e CKB+éé let, VR4ZS, 4 LT) 

21070 NEXT T 

ET UIÈN 


010 FOR F9 TC DE STEF AY 
L SDSLINE CXE+ES, 78 T LUE OGeT)e CKP+47,08-T, VEB+S 
+ 93e T, VR+é 7,1 au TI) CXP+ 47 7,13-1, VB+935,83-1) 


ep ne ces OA AN NÉS NES ae ee ne ie ne pu pan en in ie den eme 


23010 FOR Ix0 TO 47,5 STEF AY 
SOS COLOR 1,0 INE CXB+2 


mL, VEéé, 54e Te CXB4+E, SOI, VR+4 
D,8- I) LINE CXBHEE, DPI, VBtéé, SDL) (XB+E7, DL, VB, B5-L) 
23030 LINE CXB+40, Bel, VR#3é, PET) CXB+44, Séml, VERS, Det) : LIN 
E CXB+40, BST, VR+E7 DT) CXB+44, 59 T, VRHIE, 2O-T) 

24040 NEXT 


! 


24010 FOR Ia 
24020 COLOR 
D) 

24030 COLOR O,D:LINE CXB4+25, 6e TVR, Gén T)e (XB+éé , ééeT VE 
5,367) 

M4 040 COLOR 3,0: LINE CXBABE, DénT, VBté4, BL) CXB+éé, Séet, VB 
3, Péer) 

24050 COLOR L,OD:LINE CXE4 ES, 7Bel, VB447 , OBe TT) CXB+47 DEL, YB+E 
5,780) 


D1- RES PET CX 


“QUVERTL 


26010 FOR I=0 TO D2 STEF AU 
ë : 6 D6-DP4TL, VB, BD D4 TL) (XP, EDR 


P'LINE CKB+2S, Hé DAT, VRtéé, Gé Dre T) e CKBaéé, &é 
F5 
RO OO OSLINE CXPAUX  BéeDe TV Gé DE TT ) ee CRE dede 5 ee 


4T VB Se go. 
18 COL. GK 1, [ 
1, YE+40,8- D 


DE4+T)- (XPB+éé 
BD TD ee CKB té 
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OÙ ÉÉRÉÉCESELLESÉLELE VERIN PERCAGE CUX) LLELELEELELELES 


2000 COLOR &'O:LINE ( 


,AV)-CAX-11,AV-1),,BF:LINE (AX-11, 
AV 1) CAX- LD, AY : 


CAX- 10, AV+61)-CAX+LL, PV+60),, 


LINE CAXELL, AV 460 CAXALD, AV 15, ,BF:LINE CAX+10, AV-1)- (AX42,5, 
avi, ,BF 

SO0X0 KR 
31000 


; 
3 
5 
ñ 
3 
î 
n 
î 
4 
4 


LOLOR BOLINE CAX-9 , AV+40)e CAX+S, AV4+37), ,BECLINE CAX-1, 


5 AY+37), ,BF 


COLOR LS: LINE CAX-9 , AV+50)- CAX+9, AV+41), , BF 
TURN 


CHAMBRE ass 


ñ 


J COLOR L,O:LINE CAX-2,5, AV41)e CAX-9 AV4+36), , BF: LINE CAX+E 
j , AV4 1) - - CAX49, AV+36), , BF 


4010 FOR Ie TG DY 
34020 


chambre Less 


COLOR Q,C:LINE CAX-S, AV +4 T) ee CAX +9, AV +4 TL) 
CGLOR FER NENE RAT 9, AV+éle TT) (AX+9 | AV+4 LT) 
: leds piston nantes 


COLOR QC LINE CAXS9 AV+Z7 Te CAXEO, AV4R7e TD) LINE CAX-1, 
Th (AX41, 5, AV ES 
ahambres € 


MONTÉE QU FÔORE 


14 


DE LINE (AXE, + AY+407 


me PAL a em oo ne ee ae ne 


HR L'EST LINE (0,10) - CAX-2,19),,BF:LT 240) CI 0 


me TABLE Le ea ma ue aa ee a a ae a ae 
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PROGRAMMES 


LA PTE 


D, S+I, VB=7 7 


+, VR+T0=T) 


AN J 
e CXFHT , YF+10) 


XF 


F4 to) 


MAO RE 


D (XB-86.+I, YB+10-T) 
2,29+1,YR+ 10, 05-15 


me [Dep A es @8 pu 8 ÉD gran mem ne ee ee 


AS DFI STEF AV 
à LS Be CCX+T+D1-56, CV+87 


(Q) B+D14T, CY+8) : LINE 


ÿ/+D1+I,C0V+8) 


COLOR 4,0: 1 an , YF'4+10) 
NEXT T 


ET LM 


mme ES À EN 60 GS NES A me mem oo me a a a on on 


O,O:LINE(76,8,16,43)-(C108,6,59),,PF 


ex 


a oo [gap fo GR Qc gene nee me me 


FOR 1 TO DFE STEF AV 
COLOR OO LINE COX TL +01 +DF I 5é 


Ces) COXETE4DL4DFI-S6, CY 


Û 


BOTLINE COX 544014 TA4DPL, CV eg) ee COX 5 34+DI+DFL+T, CV 
FOL+DPLET, CV, Se COX A DI4DPLYT. CAL. 5) 
/Q'LINE CCX-57+D14#+DFA4T, CY-8) + CCX-57+D14+DF14I,C 


COLOR D O:LINE CXF+T4+DFI, VF 10) CXF+T+DFA, YF+10) 

COLOR &,O:LINE CXF+25+1T+DF1, YF LD) CKP4PSEL4DPL, YPF4+10) 
Ÿ D, OSLINE CXFA4T4DE TRE, VF 10) ee CXFA4T4+DFI4SE, YF+10) 
S,O'LINE CXF+DPFI+SL+T, VF 10) CXF+DF1+S14T, VF+10) 


Æ F 1 EN ER ED Lg see vues me one ones voue vec ve one anne aus ve ce anne 


FOR I#DE 
COLOR 


mé, CV-8)  COX+T4D14+DF1-56, CY 


COLOR ,QLINE CO | DEF , CV EH) COX HE4DI4DPLAT, CV 
X+B+D1+ LC ë <- 1 FT L-ONVFL EE) k 
Re, QHLÈNE COX ST DI4DP LT ,LY-8)- CCX- 


E: 


37+D1+DF1+I,0C 


&#5550 


45590 
4534600 


43610 
45620 
44000 


46510 
46520 
44530 


COLOR O,O:LINE CXF4T4DFI, VF 10 CKXFAT4+DFI, YF4+10) 

COLOR &,0:LINE {XF+25+1+D YVES LOX= (XPH SETEDPEL, VE+10) 
COLOR O,O:LINE CXF4+T+DF1+86,YF-10)- CXF+T+DF1+26, YF+10) 
COLOR 2,0:LINE CXF+DFLASL+T, VE 100 CXF4DFI4SLET, VF+L0 
COLOR O,OD:LINE CXF+ DÉLHTE., YF T O0: F+TFDPFI+S2, YPF#T0) 
COLOR &,0:LINE (XF+DF1+1+77,YF-10)-CXF+DF1+1+77, VF+105 


NEXT T 
RETURN 
TN 1 A se 


LINE CAX+13,0vV-5)-CAX+35,0Y+5),,PF 
RETURN 


D veus voue vvve nee some meme o000 06 000 aoge note sans snne vaee 00e ee D a F TL F 1 & + ot 4 F % ED AD ED Em ne ae ane one ne mme one ave ane me ee ae ane ee 


FOR IsDE1 TO DFE STEF AV 
COLOR O,O:LINE COCX+T+D14+DF1-56,CY-8)1- CCX+T4+D14+DF1-56, CV 


COLOR 3,0:LINE(CCOX-52+D1+I+DF1,CY-8)-CCX-53+D1+DF14T, CY 


+BY LINE COX+8+D14+DFAL4T, CV 1, 59e CCX+8+DL+DFLAT, CY+1, 52 


46540 
Y+8) 

46550 
44540 
46570 
44580 
46390 
464600 
46610 
46620 
+10) 

bé 30 
+10) 

44440 


TA 
46680) 
J),,B 
46490 
J 

46700 
& 4710 
447) 


COLOR 1L,O:LINE COX-57+D1+DF14T, CY-8) - CCX-57+D1+DF1L4T,C 


COLOR O0, O:LINE CXF+T+DF1, YF-10)- CXF4T+DF1, YF+10) 

COLOR 2,0:LINE CXF+85+T4+0F1, YF-10)- CXF+2S5+T+DFIL, YF+10: 
COLOR O,O:LINE CXF+T4+DF1486, VF-10)- CXP4T+DF14+26, YF +10) 
COLOR &,O:LINE CXF+DF1+5147, VE 10) CXF4+DFL4S LT, YF+10) 
COLOR O,O:LINE CXF+52+DF1L+T, VF 10) - CXP4T+DFI+SE, YF4+10) 
COLOR 8 ,0:LINE CXF+DF1+1+77, VF-10)- CXF4+DF1+1+77, YF4+10 
COLOR O,O:LINE CXF4784+DF14t, YF 10) CXF+784DFI4T, YF410) 
COLOR S,O:LINE CXF+DF1+T+86,5,VF-10)- CXF+DFISsI+868,5, VF 


COLOR O,O:LINE (CXF4+DF1+1+92,5,VP-10)- CXF4+DF1+1+92,5,%F 
COLOR SZ, O:LINE CXF4DFL+T+108, VF 10) CXFA4DFL4T4107, YF4I 


LINE (CXF+DF1+1+78,VF-10)- (XPF+DF1L+I+109,YF+107,,R 
NEXT I 

FOR Je0 TG 50 STE 
COLOR S,O:LINE (XF+DF1+104,VF-10-J)- CXF+DF1+129, VF4+10- 


COLOR O,O:LINE CXF+DF1+104, VF410-,J)- CXF+DF14+129,YF4+10- 


LINE CXF+DF1+114,5,VF-10-1J)- CKF+DF14+1168,5,YF-10-.0 
NEXT J 
RETURN 
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CHAPITRE 4 


SOUS-PROGRAMMES 


Initialisation 
de la table 
traçante 


"ÉÉÉLÉEEEEEE Initiolisation de 


££ 
45010 Programme INITT4E 


Figure 4.1 


— Ligne 45920 : Initialisation des erreurs. 


— Ligne 45939 : Appel des commandes spé- 
ciales RS, SC, CI. 


Commande pl : 

Au moyen de la commande PLOAD (pl), on peut 
appeler un programme utilitaire (commande 
transitoire) dans la zone de mémoire permanen- 
te ». Ce programme restera ainsi dans la mémoire 
de l'utilisateur jusqu'à ce que le système soit 
réinitialisé. C'est un gain de temps lorsqu'un 
programme est utilisé plusieurs fois. 


Commande RS : Routine en assembleur qui 
permet à l'utilisateur de communiquer, par 
l'intermédiaire de l'interface RS 232, avec des 
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dispositifs compatibles. L'environnement de 
transmissions est fixé au moyen de la commande 
SCOMM (SC). 


Commande SC : C'est une commande qui 
établit l'environnement de transmission d'un 
port de communications RS 232. La routine de 
communications du RS 232 doit être chargée 
avant l'exécution de SCOMM. 


Commande CI : Cette commande permet à un 
programme en BASIC de réaliser l'interface avec 
laroutine RS 232. Elle ne peut être utilisée qu'en 
mode BASIC. 


— Ligne 45949: Appel de 
SCOMM. 


la commande 


Syntaxe 


ns 


SOUS-PROGRAMMES 


Vitesse | 


en bauds 
a 


O5 s nn 
de donnees 


Nom du 


dispositif 


Controle Bits 


de parite de stop 


pense nu 
Etablissement en 
— Duplex ue ia En 
de la liaison | tampon | 
Figure 4.2 


Nom du dispositif: Connecté au port RS 232. 
Vitesse en bauds : Vitesse de transmissions de données. Elle peut prendre les valeurs suivantes : 


Contrôle 
de parité 


59, 110, 300. 600, 1200, 1800, 2450, 4800, 9600. 


: Contrôle du nombre de bits 1 d'un élément de données. Le système peut faire 
un contrôle d'imparité (ODD) ou de parité (EVEN) ou ne pas en faire (NONE). 


Bits de Stop : Format du signal qui termine un élément de données. 


Bits de d 


Duplex 


Exemple : ® (1 bit de stop), 1 (1 1/2 bit de stop), 2 (2 bits de stop). 
onnées _ : Quantité de données (en bits) formant un élément de données. Ce paramètre 
peut être 5, 6, 7 ou 8. 
: Ce paramètre spécifie si les caractères de données doivent avoir où non un 
écho à leur réception. En duplex (FULL) ils ont un écho. 
En semi-duplex (HALF) ils n'en n'ont pas. 


Établissement 
de liaison : Ce paramètre doit être ON ou OFF selon que le dispositif peut ou non prendre 


en charge le protocole d'établissement de la liaison. 


Dimension 
de mémoire 


tampon 


: Dimensions (en bits) de la mémoire tampon du récepteur. (A défaut 128). 


— Ligne 45959 : Appel de la commande Cl 


Syntaxe 


0 


Figure 4.3 


Numéro de port : Il spécifie le canal RS 232. Il doit avoir l'une des valeurs suivantes : 


Q : port principal RS 232 
1 : port de la première extension 
2 : port de la deuxième extension. 
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SOUS-PROGRAMMES 


Commande 
d’entrée/sortie  : Elle spécifie l'opération à exécuter et doit être représentée de l'une des facons 
suivantes : 
o : ouvrir le port r  : lire à partir du port 
c : fermer le port sr : lire l'état à partir du port 
w : écrire au port sw : écrire l'état au port. 
Erreur : Variable entière renvoyée pour indiquer l'erreur. 
Paramètre : Dépend de la commande d'entrée/sortie. 
Quand ces instructions de commande sont établies l'écran affiche : 
— Ligne 45969 Initialisation. 
in : Initialisation de la fenêtre de tracé 
sp1 : Choix de la plume de tracé. 
ip 9, 0, 
16158, 11040 : Instruction de fonctionnement des points de cadrage en coordonnées du 
traceur. 


SC 0, 402, 0, 275 : Échelle de tracé à l'intérieur de la fenêtre en coordonnées utilisateur. 
pu … pd...; pu : Traçage d'un cadre. 


— Ligne 50000 : Remarque qui annonce le sous-programme « ci ». 
— Ligne 50010 : Appel de la commande «ci» pour l'écriture (voir pages précédentes). 
— Ligne 50020 : Temporisation nécessaire au tracé pour éviter l'afflux de données dans la 


mémoire tampon. 


Affichage des paramètres à l'écran 
au moment de l'initialisation de la table 


Premier programme : Définition de la commande RS 232. 


Program name = RS£2E Kew, 1,3d 
Main entry = {2:XCF7EA Init entry = 42:#4CP00 
Butes losded = 2548 Mode = Segmented < Suwsten 
Figure 4.2 
Deuxième programme : Définition de la commande SC. 
Program oame = Set Comm Res  1,3d 
Main entry = É2EXDArE Init entry = Hone 
Bvtes luaded = 1542 Haude = Segnented +“ Sustem 
Figure 4.3 
Troisième programme : Définition de la commande Cl. 
Program name = Communication Interface Kew, d,3d 
Main entry = {2:40P7680 Init entry = Hone 
Evtes losded = 94 Mode = Segmented « Sustei 
Figure 4.4 
Paramètres nécessaires au fonctionnement de la table traçante. 
2Com Data: Porr Hame = CÜH Faud Fate = gsm 
Parity = HÜRHE Stop Eits = 2? Cata Hits = o 
Guplex = HALF Handshske = ÛH Buffer Size = Us 


Figure 4.5 
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Tracé | 
du cartouche 
du format A3 


Application directe du tracé point par point à la table traçante. 
— Lignes 42240 à 42270: 


— Affectation du titre à la variable alphanumérique $. 

— Calcul de la longueur du titre (en nombre de lettres). 

— Affectation de variables permettant, suivant la longueur du titre, inférieur ou supérieur à 14 
lettres, d'obtenir deux dimensions de lettres, ainsi que le centrage du titre dans la case où il est écrit. 


Exemple : 
VERIN 
Næ=S lettres C1 S1:7; À 
pen | IN 
| l286 
|x=286-Nxcx5-261 
Figure 4.6 
Exemple : 


TARAUDAGE BORGNE 
N=16 lettres C=,7 Hi... .: 7 


FU BORGNE 


Pr ou éjiére ‘ N=POE (Cf CaréÉOouC/IE / 


[l 
T7 gecs1sge OU ÉIÉTE DS lODOOTÉ #8 À 


X=2B86-NXxCx5=-237 


Figure 4.7 
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SOUS-PROGRAMMES 


Programme (T.T.) 


s0000 


Dr 50000 


50000 


G;1bClasse": GOSURB S0000 


LB S0QQN 


A'HENTA-BEAUMONT I GOEL 


ré épis "'AOSUER S0000 
);pu: ":GQGSUR S000Û 
ET 


æ:e1i1.5;pu;:":GOSUR 50000 


saAsa0, ,040,39,800,27,8,2880, 24.8 cpus te 


"UTUTITRE DU DESSIN ":pS# 

EN (RS) 

Noté THEN Cx,7 ELGE Om 

UE GTRSE CIBÉé NX CS) 40,7: ei" HETRE CC, 7XO)4STRE CCD M. d 
É:GAOEUR 50000 

tETURN 


Figure 4.8 
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SOUS-PROGRAMMES 


Cartouche A4 
sur écran 
graphique 


Application directe du tracé point par point à l'écran graphique. 


Programme (E.G.) 
Figure 4.9 
VONDCE * PÉE 


RE 
LOTS 


Cavbeuabhe Ecran Grambhicue GÉRÉE EE 


fes ensmme CARTES 
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SOUS-PROGRAMMES 


AUMONT "425,55 1 1) 
EN 
4,1) 


ls 7% h à 
URLS | 
DELA TE 


"CUNo 


D DNA EL 3 
eu pe ,4 
PQ REPREe 
MAC" | LE 


LT é à 0 
1045 


,318,0,1,0) 

445,0,1,0) 

S,LO):LINE CE5S,0)-(2468 LOD:LINE (245,1 
(RES, LO):LINE (255,10)-(258 15) 

q TO 10 STEF 1 

(R4S+A, LO-A/2)-(P45- A, 10-A/2) 
a 

LINE (10,10)-€(501,845),,R 

FE T LIN 


10470 
LOEB) 
Où cf 
10460 
10500 
10510 


10590 
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SOUS-PROGRAMMES 


Nomenclature 
A3 sur table 
traçante 


Tracé du cartouche en coordonnées relatives par rapport à un point absolu origine où par rapport au 
point précédent. 


Organigramme ( DEBUT 


' INPUT A p 


frace des verticales 
FOR I=1i TO NX 
A+1 


Trace des horizontales 


Ecriture des constantes | 


1 


FOR Imt TO _ 
| 


INPUT N, D$, M$, O$ 


Ecriture de N, D$, M$, 0$ 
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SOUS-PROGRAMMES 


Programme (T.T.) 


Figure 4.11 


LAN 


il 


UB 59190 


SCI QN 
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SOUS-PROGRAMMES 


Exercice 
sur écran 
graphique 


Tracé de segments, cercles, arcs de cercles ou ellipses permettant la construction de toutes formes ou 


figures. 
( DEBUT ) 
[et inition des ésasan 
F INITIALISATION/ 


/ x6, xo, 8, YH 
VA Le Gr À 


> rs QUE L . 7 
| 
* 


L<>0 
L GOSUB 37000 


Fc 


D EN 
TANT QUE _.. 
eZ és. 7 
| 
| GOSUB 38000 
| RE ? | 

DR UC TN 

TANT QUE ù 
a Re >— 


 _: 


| [xs 7 


Figure 4.12 


SOUS-PROGRAMMES 


1. SOUS-PROGRAMMES 


a) Tracé de segments en continu : sous-programme 37000 
(E.G.) 


—— 
X 
Figure 4.13 
Organigramme 
( DEBUT 
É Initialiser N FRERE ES 
ee MENÉS EN CONÉINIU 
/ Enaitialiser X1, V2 Pi ÀA, FA 
N FOR I 1 TO 
> 
TT 
/ Initieliser xe, ve / A JS OÙ AG TC 
Tracer (X1, Y1) - (Xe, Ye) 
| X1i=Xe 
[ vasve | 
ZeCcComoéeLr T4 
Lel.—1 
LL Hs NOTE DE SEGJMENÉS 
( FIN ) FIN de SOUS-070- 
ZT'ENME 
Figure 4.14 
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SOUS-PROGRAMMES 
Déroulement 


iere Boucle eeme Boucle 3eme Boucle 
X1=XA X2=XB X1=XB X2=XC X1=XC X2=X0 
Y1=YA Y2=YB Y1=YB Ye=Yc Y1=YcC Ye="YD 


B B B 


/2 


> 
> 


X1 devient x2 


Y1 devient y2 


| 
L X1 devient Xe | 


s” devient Ye 


Figure 4.15 


Sous-programme 47000 (T.T.) 


47000 'LÉÉCERERRCREREE Trace de segments en continu gur TT Æ££ 
FÉÉE 


evo me ae ue ae oo ae ae ae me JE je LU aAmme GÉRTT 4 eee ve vo vue ue me ae ne ane ane ae ne ne ane one ve ee 


47080 4 le trace de la piece indiquer 
47030 ° : 4 2000 : END 
4209407 Donner en DATA L . MN. X,Y 
42050 REAT 


LR GTRS CXILN EU EOTRE CYLI AU PDMHETRE (XD + ESTRE 
":EOSUR 50000 


FAN 


ct «dl gi utilisation de WAILE-WEND 
47140 K - 


ETURN 


Figure 4.16 


SOUS-PROGRAMMES 


b) Tracé de cercles : sous-programme 38000 (E.G.) 


Figure 4.17 


Organigramme 


CD 


/initisliser XC, YC, A, A1, a2/ 


NOR RE 


FOR T=A1 TO A2 Li 


EE 


[caieui de x1, 1, x2, val 
a 


[Tracer (X4, V4] = (Re, 2) 


ns 
Ne MO 


Éd LecComÉEeuT JU NÔÛ0TE 


mie a — q'arCs ge Cercles 
( RETURN ) 


Déroulement : voir tracé de polygones 
140 


| 
L. 


Figure 4.18 


SOUS-PROGRAMMES 


Sous-programme (E.G.) 


Figure 4.19 


c) Tracé d'arcs de cercles : sous-programme 39000 (E.G.) 


Figure 4.20 
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SOUS-PROGRAMMES 


Organigramme 


DEBUT 
nitialiser XC, YC, A, A1, A2 


FOR T=A1 TO A2 


Calcul de X1, Y1, Xe, Ye 


Tracer (X1, Y1) — (X2, Ya) 


LecompÉéeur JU ANÔÛTE 
g'ercs ge CefrCcCjes 


RETURN 


Figure 4.21 


Sous-programme 48000 (T.T.) 


48000 ?+ 
LLES 
4BO1D ?smmnmnmsammesemms@nogramne AROTT Bee nn 


48080 ‘Donner F,XC, VO AL. ASF, LD, CL, 08, Del si diseontin. 
sinon LD 


48030 


#0000 


14", MHETRS (V1) 4" FDU4STRE CNE) 


Figure 4.22 
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SOUS-PROGRAMMES 


Exemple 1 : 


Figure 4.23 


Exemple 2 : 


A2=A1+360 deg 


Figure 4.24 


Exemple 3 : 


X1=XC+A*1.22xC0S (T) 
P Y1=YC+AX.707XSIN (T) 
$ X2=XC+R1.22xC0S (T+P) 
Ye=YC+AXx.707XSIN (T+P) 


Figure 4.25 
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SOUS-PROGRAMMES 


Programmation des exemples 1, 2, 3 sur (E.G.) 


200 


CANe Cell: GOSUR 38000 


RAME Fes: A1e0:A2e3460:0ie1.2: 0x. 8: SOEUR 380 
O0 

999 END 

ares de cerale 

601 figures inscrites sur EG. 

sel ‘Donner F,XC, VC AL, AS ,F,C01 et CE (01 et CE coefficient 
vmation du cercle en ellipse dans le &as d'un ce 
12 

3. 14/80: ALRALXE, Lé/1O0: ARRAIXE, 14/1680: Trans forma 
Lion degrees vradians 

28040 FOR TeAl TO A8 STEF F 

38050 XAEXC4+RXC1XCOS CT) 

FRDEOD VARVOARECEXETN CT) 

36070 XPeXCO+EROLKXCOS CT+F) 

380680 V CHRXCIXSTN CT+F) 

38090 LINE CKXA,YA)-CXE. VE) 

SSLOCQ NEXT T 

ASLLO RETURN 


D CG 
60x00 


Figure 4.26 


Copie d'écran 


TT ne 
mr —— 
— 
ri _ 
ar ——————, ne 
a Pen Ts LA 
À = —. —. 
# Pl ho, ., 
7° Fa ., 
F aù “ ne Le 
“ “ Es , 
# # The 
‘ ES 
‘ “ —. “ 
' F ne % 
A] f Le ’ 


À ! y. 
, 4 
, # 
, ü l'a 
à # a À 
", \ 
, s 
+ “ 
à. FI 
À 
LS # 
D LL 2e 
…. r # 
. # 
x TRS ma 
—. DE 4 
ns Fa 
Eu a” 
= Le 

En CE sie 

ne =. 

es CRE ee —— 


Figure 4.27 
144 


SOUS-PROGRAMMES 


Programme TRACEG 


VHS 


RE en 51000 


a entrer @n S2000 


CE DE CERCLEE 
XO VO, Ri'a entrer en 33000 


pp 


NA CXE) 
#FNE (V1) 
NE (VE) 
LINE CX1, NAME CXE, Va) 


a entrer en S4000 
ART, Lélé /LB0: Fe, LRGON CAE-A1) 


READ Xe, ve. 


1 VID CXE, VE) 


39150 


Ë Nbre de segments en contima,de cercle 
emites des segments Figure 4.28 


de cerale 145 


INDEX ALPHABÉTIQUE 


pages 
A 
Aa (arc absolu) 139 
Arc de cercle 102-114 
Assemblage par vis 104 à 114 
ATN 39 
AS (expression alphanumérique) 40 
B 
B (Box) 20-21 
Basic sàa7 
BF (Box Full) 115 à 124 
Butée fixe 62 à 71 
C 
CALL 130 
Caractères (introduction) 3 
Caractères de contrôle 3-4 
Cartouche - format A3 128-129 
Cartouche - format A4 130-131 
Cercle (le) 26 à 30-36-138 
CIRCLE (ci-table traçante) 26 à 30 
Clavier (utilisation du) 2 
COLOR 6 
Commandes Basic 54 
Correction (des erreurs) 4 
CLS 16 
COS 39 
Cosse 46 à 48 
Cotation fonctionnelle 
des assemblages par vis 104 à 114 
CR 3 
CTRL 3-4 
CURSOR 6-39 
D 
DATA (READ) 25 
DEFFN 46-48-65 
Di (table traçante) 68 
DIM 100 
Disque il 
E 
Écran alphanumérique 15 
Ecran graphique 14 
EDIT 5 
Eléments graphiques 14 à 50 
Ellipse 30-31-139 
ELSE 42 
END 40 
F 
Figures polygonales inscrites 22 
Fonctions 6-7 
FOR... NEXT... 22 


Fourche de cycle 50 


G 
GOSUB... RETURN 
GOTO... 

H 
Hachures 


Hachures en continu 
Hachures par balayage 
- figures circulaires 
- figures polygonales 


IF... THEN...ELSE 
Imprimante graphique 
Initialisation table traçante 
INPUT 

Instructions Basic 
Intersection cylindre-plan 


La (label) 

LEN (longueur d’une chaîne) 
LINE 

LIST 

LPRINT 


M 


Micro-ordinateur M 20 
Modes de fonctionnement 


N 


NEXT (FOR...) 
Nomenclature 


Organigramme 


PCOS 

pd (pen down) 

Pixel 

Point (le) 

Polygones inscrits 
Présentation du matériel 
PRINT 

PSET 


pu (pen up) 


23 
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37 à 48 
37 à 40 


46 à 48 
41 à 46 


42 
2 
125 à 127 


22 
132-133 


38 


READ (DATA) 
Rectangle 

REM (Remarque) 
RETURN (GOSUB) 
RUN 


SCALE 
Segment de droite 
SGN 


SPACE 
Sphère d’attelage 
STRS 


Table traçante 
Tableau 


LS 
92 


Tableau de désignation des vis 92 à 101 
Tableau de correspondance des fonctions 8 à 13 


TAN 6 

Taraudage débouchant 81 à 86 

TEMP 89 

THEN (IF...) 42 

Traits 17-32 à 36 

Triangle 19 
U 

Unité de perçage 115 à 124 
V 

Vérin 72 à 80 

Vis (tracé de) 92 à 101 
W 

WEND (WHILE...) 34 


WHILE (WEND) 34 
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andis que l’industrie fait maintenant très largement appel 
au dessin assisté par ordinateur (DAO), informatique et 

micro-ordinateurs pénètrent de plus en plus dans les 
établissements de formation technique. Cet ouvrage consacré à la 


maîtrise du graphisme, à l’aide de l'outil informatique, vient donc 
à son heure. 


Le lecteur débutant y trouvera les instructions nécessaires à 
l'exécution, contrôlée à tout moment sur écran ou table traçante, 
de traits élémentaires puis de figures géométriques plus 
complexes pour aboutir à des dessins de définition et des schémas 
dynamiques. 


Les professeurs concernés par le dessin de construction et la 
technologie en général puiseront dans les programmes et sous- 
programmes rassemblés dans Logigraph, la matière qui leur 
permettra d'élaborer leurs propres programmes de conception 
graphique. 
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